/ MacFormat 1996 January / macformat-033.iso / mac / Shareware City / Applications / State-Smart ƒ / Scripts / ßScripts

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 4e 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |..N.STAK|........|
|00000010| 00 00 00 0a 00 00 80 00 | 00 00 4e 00 00 00 00 00 |........|..N.....|
|00000020| 00 00 00 00 00 00 00 01 | 00 00 0a 96 00 00 00 01 |........|........|
|00000030| 00 00 0b e0 00 00 0f 87 | 00 00 00 02 00 00 1d 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 05 00 00 10 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 02 00 60 43 02 00 80 00 | 02 00 80 00 02 30 80 00 |..`C....|.....0..|
|00000070| de 01 30 3a 00 00 00 00 | 00 45 00 40 01 9b 02 40 |..0:....|.E.@...@|
|00000080| 00 00 00 00 01 e0 02 80 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 0d bd 00 00 0c cb | 01 56 02 00 00 00 00 00 |........|.V......|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|000002d0| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|000002e0| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|000002f0| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000300| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000310| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|00000320| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|00000330| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|00000340| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|00000350| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|00000360| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|00000370| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000380| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000390| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|000003a0| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|000003b0| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|000003c0| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|000003d0| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|000003e0| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|000003f0| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000400| 00 00 50 00 00 00 05 80 | 00 00 5f e0 00 00 17 80 |..P.....|.._.....|
|00000410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 2d 2d 49 6e 74 65 6c 6c | 69 6d 61 74 69 6f 6e 20 |--Intell|imation |
|00000610| 73 75 67 67 65 73 74 65 | 64 20 72 6f 75 74 69 6e |suggeste|d routin|
|00000620| 65 73 20 2d 2d 2d 0d 6f | 6e 20 75 6e 4c 6f 63 6b |es ---.o|n unLock|
|00000630| 49 74 0d 73 65 74 20 74 | 68 65 20 75 73 65 72 6c |It.set t|he userl|
|00000640| 65 76 65 6c 20 74 6f 20 | 35 0d 73 68 6f 77 20 6d |evel to |5.show m|
|00000650| 65 73 73 61 67 65 0d 73 | 68 6f 77 20 74 6f 6f 6c |essage.s|how tool|
|00000660| 20 77 69 6e 64 6f 77 20 | 61 74 20 34 30 2c 32 30 | window |at 40,20|
|00000670| 0d 65 6e 64 20 75 6e 4c | 6f 63 6b 49 74 0d 0d 6f |.end unL|ockIt..o|
|00000680| 6e 20 4c 6f 63 6b 49 74 | 0d 67 6c 6f 62 61 6c 20 |n LockIt|.global |
|00000690| 55 4c 0d 73 65 74 20 74 | 68 65 20 75 73 65 72 6c |UL.set t|he userl|
|000006a0| 65 76 65 6c 20 74 6f 20 | 55 4c 0d 68 69 64 65 20 |evel to |UL.hide |
|000006b0| 6d 65 73 73 61 67 65 0d | 68 69 64 65 20 74 6f 6f |message.|hide too|
|000006c0| 6c 20 77 69 6e 64 6f 77 | 0d 65 6e 64 20 4c 6f 63 |l window|.end Loc|
|000006d0| 6b 49 74 0d 0d 6f 6e 20 | 75 66 20 2d 2d 75 6e 6c |kIt..on |uf --unl|
|000006e0| 6f 63 6b 20 66 69 65 6c | 64 73 0d 54 6f 67 46 69 |ock fiel|ds.TogFi|
|000006f0| 65 6c 64 73 20 75 6e 6c | 6f 63 6b 0d 65 6e 64 20 |elds unl|ock.end |
|00000700| 75 66 0d 0d 6f 6e 20 6c | 66 20 2d 2d 6c 6f 63 6b |uf..on l|f --lock|
|00000710| 20 66 69 65 6c 64 73 0d | 54 6f 67 46 69 65 6c 64 | fields.|TogField|
|00000720| 73 20 6c 6f 63 6b 0d 65 | 6e 64 20 6c 66 0d 0d 6f |s lock.e|nd lf..o|
|00000730| 6e 20 54 6f 67 46 69 65 | 6c 64 73 20 61 72 67 0d |n TogFie|lds arg.|
|00000740| 69 66 20 61 72 67 20 69 | 73 20 22 6c 6f 63 6b 22 |if arg i|s "lock"|
|00000750| 20 74 68 65 6e 20 70 75 | 74 20 74 72 75 65 20 69 | then pu|t true i|
|00000760| 6e 74 6f 20 74 6f 67 20 | 65 6c 73 65 20 70 75 74 |nto tog |else put|
|00000770| 20 66 61 6c 73 65 20 69 | 6e 74 6f 20 74 6f 67 0d | false i|nto tog.|
|00000780| 70 75 74 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |put the |number o|
|00000790| 66 20 62 67 20 66 6c 64 | 73 20 69 6e 74 6f 20 6e |f bg fld|s into n|
|000007a0| 62 67 66 0d 70 75 74 20 | 74 68 65 20 6e 75 6d 62 |bgf.put |the numb|
|000007b0| 65 72 20 6f 66 20 63 64 | 20 66 6c 64 73 20 69 6e |er of cd| flds in|
|000007c0| 74 6f 20 6e 63 64 66 0d | 72 65 70 65 61 74 20 77 |to ncdf.|repeat w|
|000007d0| 69 74 68 20 69 20 3d 20 | 31 20 74 6f 20 6e 62 67 |ith i = |1 to nbg|
|000007e0| 66 0d 73 65 74 20 74 68 | 65 20 6c 6f 63 6b 54 65 |f.set th|e lockTe|
|000007f0| 78 74 20 6f 66 20 62 67 | 20 66 6c 64 20 69 20 74 |xt of bg| fld i t|
|00000800| 6f 20 74 6f 67 0d 65 6e | 64 20 72 65 70 65 61 74 |o tog.en|d repeat|
|00000810| 0d 72 65 70 65 61 74 20 | 77 69 74 68 20 69 20 3d |.repeat |with i =|
|00000820| 20 31 20 74 6f 20 6e 63 | 64 66 0d 73 65 74 20 74 | 1 to nc|df.set t|
|00000830| 68 65 20 6c 6f 63 6b 54 | 65 78 74 20 6f 66 20 63 |he lockT|ext of c|
|00000840| 64 20 66 6c 64 20 69 20 | 74 6f 20 74 6f 67 0d 65 |d fld i |to tog.e|
|00000850| 6e 64 20 72 65 70 65 61 | 74 0d 65 6e 64 20 54 6f |nd repea|t.end To|
|00000860| 67 46 69 65 6c 64 73 0d | 0d 0d 0d 6f 6e 20 64 6f |gFields.|...on do|
|00000870| 57 69 6e 64 6f 77 73 0d | 70 75 74 20 74 68 65 20 |Windows.|put the |
|00000880| 6e 75 6d 62 65 72 20 6f | 66 20 6c 69 6e 65 73 20 |number o|f lines |
|00000890| 6f 66 20 74 68 65 20 77 | 69 6e 64 6f 77 73 20 69 |of the w|indows i|
|000008a0| 6e 74 6f 20 6e 0d 72 65 | 70 65 61 74 20 77 69 74 |nto n.re|peat wit|
|000008b0| 68 20 69 20 3d 20 31 20 | 74 6f 20 6e 0d 70 75 74 |h i = 1 |to n.put|
|000008c0| 20 6c 69 6e 65 20 69 20 | 6f 66 20 74 68 65 20 77 | line i |of the w|
|000008d0| 69 6e 64 6f 77 73 0d 77 | 61 69 74 20 75 6e 74 69 |indows.w|ait unti|
|000008e0| 6c 20 74 68 65 20 6d 6f | 75 73 65 63 6c 69 63 6b |l the mo|useclick|
|000008f0| 0d 65 6e 64 20 72 65 70 | 65 61 74 0d 65 6e 64 20 |.end rep|eat.end |
|00000900| 64 6f 57 69 6e 64 6f 77 | 73 0d 0d 6f 6e 20 72 65 |doWindow|s..on re|
|00000910| 73 75 6d 65 53 74 61 63 | 6b 0d 67 6c 6f 62 61 6c |sumeStac|k.global|
|00000920| 20 69 73 69 6e 69 74 0d | 69 66 20 6e 6f 74 28 69 | isinit.|if not(i|
|00000930| 73 69 6e 69 74 20 69 73 | 20 74 72 75 65 29 20 74 |sinit is| true) t|
|00000940| 68 65 6e 20 69 6e 69 74 | 53 53 0d 70 61 73 73 20 |hen init|SS.pass |
|00000950| 72 65 73 75 6d 65 53 74 | 61 63 6b 0d 65 6e 64 20 |resumeSt|ack.end |
|00000960| 72 65 73 75 6d 65 53 74 | 61 63 6b 0d 0d 0d 0d 6f |resumeSt|ack....o|
|00000970| 6e 20 69 6e 69 74 53 53 | 0d 0d 2d 2d 63 68 65 63 |n initSS|..--chec|
|00000980| 6b 20 74 68 65 20 76 65 | 72 73 69 6f 6e 0d 69 66 |k the ve|rsion.if|
|00000990| 20 74 68 65 20 76 65 72 | 73 69 6f 6e 20 3c 32 2e | the ver|sion <2.|
|000009a0| 30 20 74 68 65 6e 0d 61 | 6e 73 77 65 72 20 22 74 |0 then.a|nswer "t|
|000009b0| 68 69 73 20 73 74 61 63 | 6b 20 72 65 71 75 69 72 |his stac|k requir|
|000009c0| 65 73 20 48 79 70 65 72 | 43 61 72 64 20 76 65 72 |es Hyper|Card ver|
|000009d0| 73 69 6f 6e 20 32 2e 30 | 20 6f 72 20 61 62 6f 76 |sion 2.0| or abov|
|000009e0| 65 22 c2 0d 77 69 74 68 | 20 22 43 6f 6e 74 69 6e |e"..with| "Contin|
|000009f0| 75 65 22 20 6f 72 20 22 | 47 6f 20 48 6f 6d 65 22 |ue" or "|Go Home"|
|00000a00| 0d 69 66 20 69 74 20 69 | 73 20 22 47 6f 20 48 6f |.if it i|s "Go Ho|
|00000a10| 6d 65 22 20 74 68 65 6e | 20 67 6f 20 48 6f 6d 65 |me" then| go Home|
|00000a20| 0d 65 6e 64 20 69 66 0d | 67 6c 6f 62 61 6c 20 69 |.end if.|global i|
|00000a30| 73 69 6e 69 74 0d 67 6c | 6f 62 61 6c 20 75 6c 2c |sinit.gl|obal ul,|
|00000a40| 55 53 52 4c 56 4c 0d 69 | 66 20 6e 6f 74 20 28 69 |USRLVL.i|f not (i|
|00000a50| 73 69 6e 69 74 20 69 73 | 20 74 72 75 65 29 20 74 |sinit is| true) t|
|00000a60| 68 65 6e 0d 2d 2d 73 61 | 76 65 20 74 68 65 20 63 |hen.--sa|ve the c|
|00000a70| 75 72 72 65 6e 74 20 75 | 73 65 72 6c 65 76 65 6c |urrent u|serlevel|
|00000a80| 0d 70 75 74 20 74 68 65 | 20 75 73 65 72 6c 65 76 |.put the| userlev|
|00000a90| 65 6c 20 69 6e 74 6f 20 | 75 6c 0d 2d 2d 69 6e 69 |el into |ul.--ini|
|00000aa0| 74 69 61 6c 69 7a 65 20 | 73 79 73 74 65 6d 20 67 |tialize |system g|
|00000ab0| 6c 6f 62 61 6c 73 0d 6c | 6f 63 6b 20 73 63 72 65 |lobals.l|ock scre|
|00000ac0| 65 6e 0d 70 75 73 68 20 | 63 64 0d 73 65 74 20 74 |en.push |cd.set t|
|00000ad0| 68 65 20 6c 6f 63 6b 6d | 65 73 73 61 67 65 73 20 |he lockm|essages |
|00000ae0| 74 6f 20 74 72 75 65 0d | 67 6f 20 22 a4 43 6f 6e |to true.|go ".Con|
|00000af0| 74 72 6f 6c 22 0d 70 75 | 74 20 63 64 20 66 6c 64 |trol".pu|t cd fld|
|00000b00| 20 22 67 6c 6f 62 6c 69 | 73 74 22 20 6f 66 20 63 | "globli|st" of c|
|00000b10| 64 20 22 68 65 6c 70 22 | 20 69 6e 74 6f 20 67 6c |d "help"| into gl|
|00000b20| 0d 70 75 74 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |.put the| number |
|00000b30| 6f 66 20 6c 69 6e 65 73 | 20 6f 66 20 67 6c 20 69 |of lines| of gl i|
|00000b40| 6e 74 6f 20 6e 0d 67 65 | 74 20 63 64 20 66 6c 64 |nto n.ge|t cd fld|
|00000b50| 20 22 6d 65 6d 6f 72 79 | 22 20 6f 66 20 63 64 20 | "memory|" of cd |
|00000b60| 22 68 65 6c 70 22 0d 72 | 65 70 65 61 74 20 77 69 |"help".r|epeat wi|
|00000b70| 74 68 20 69 20 3d 20 31 | 20 74 6f 20 6e 0d 70 75 |th i = 1| to n.pu|
|00000b80| 74 20 6c 69 6e 65 20 69 | 20 6f 66 20 67 6c 20 69 |t line i| of gl i|
|00000b90| 6e 74 6f 20 76 72 0d 70 | 75 74 20 22 67 6c 6f 62 |nto vr.p|ut "glob|
|00000ba0| 61 6c 20 22 20 26 20 76 | 72 20 69 6e 74 6f 20 6c |al " & v|r into l|
|00000bb0| 69 6e 0d 64 6f 20 6c 69 | 6e 0d 70 75 74 20 22 70 |in.do li|n.put "p|
|00000bc0| 75 74 20 6c 69 6e 65 20 | 22 20 26 20 69 20 26 20 |ut line |" & i & |
|00000bd0| 22 20 6f 66 20 69 74 20 | 69 6e 74 6f 20 22 20 26 |" of it |into " &|
|00000be0| 20 76 72 20 69 6e 74 6f | 20 6c 69 6e 0d 64 6f 20 | vr into| lin.do |
|00000bf0| 6c 69 6e 0d 65 6e 64 20 | 72 65 70 65 61 74 0d 0d |lin.end |repeat..|
|00000c00| 2d 2d 74 68 65 73 65 20 | 67 6c 6f 62 61 6c 73 20 |--these |globals |
|00000c10| 61 72 65 6e 27 74 20 73 | 74 6f 72 65 64 20 62 65 |aren't s|tored be|
|00000c20| 63 61 75 73 65 20 74 68 | 65 20 75 73 65 72 20 63 |cause th|e user c|
|00000c30| 61 6e 27 74 20 63 68 61 | 6e 67 65 20 74 68 65 6d |an't cha|nge them|
|00000c40| 0d 67 6c 6f 62 61 6c 20 | 4e 55 4d 52 45 47 2c c2 |.global |NUMREG,.|
|00000c50| 0d 4e 55 4d 43 41 54 2c | c2 0d 4e 4f 4e 4f 2c c2 |.NUMCAT,|..NONO,.|
|00000c60| 0d 4e 41 4d 45 4e 4f 2c | c2 0d 53 57 4e 4f 2c c2 |.NAMENO,|..SWNO,.|
|00000c70| 0d 53 4f 4e 47 4e 4f 2c | c2 0d 41 54 43 4e 4f 2c |.SONGNO,|..ATCNO,|
|00000c80| c2 0d 49 44 4e 4f 2c c2 | 0d 4e 55 4d 4f 50 54 0d |..IDNO,.|.NUMOPT.|
|00000c90| 70 75 74 20 36 20 69 6e | 74 6f 20 4e 55 4d 52 45 |put 6 in|to NUMRE|
|00000ca0| 47 0d 70 75 74 20 31 33 | 20 69 6e 74 6f 20 4e 55 |G.put 13| into NU|
|00000cb0| 4d 43 41 54 0d 70 75 74 | 20 38 20 69 6e 74 6f 20 |MCAT.put| 8 into |
|00000cc0| 4e 55 4d 4f 50 54 0d 70 | 75 74 20 74 68 65 20 6e |NUMOPT.p|ut the n|
|00000cd0| 75 6d 62 65 72 20 6f 66 | 20 63 64 20 62 74 6e 20 |umber of| cd btn |
|00000ce0| 22 4e 4f 22 20 6f 66 20 | 63 64 20 22 55 53 20 68 |"NO" of |cd "US h|
|00000cf0| 6f 6d 65 22 20 69 6e 74 | 6f 20 4e 4f 4e 4f 0d 70 |ome" int|o NONO.p|
|00000d00| 75 74 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |ut the n|umber of|
|00000d10| 20 63 64 20 62 74 6e 20 | 22 53 57 22 20 6f 66 20 | cd btn |"SW" of |
|00000d20| 63 64 20 22 55 53 20 68 | 6f 6d 65 22 20 69 6e 74 |cd "US h|ome" int|
|00000d30| 6f 20 53 57 4e 4f 0d 70 | 75 74 20 74 68 65 20 6e |o SWNO.p|ut the n|
|00000d40| 75 6d 62 65 72 20 6f 66 | 20 63 64 20 62 74 6e 20 |umber of| cd btn |
|00000d50| 22 4e 41 4d 45 22 20 6f | 66 20 63 64 20 22 55 53 |"NAME" o|f cd "US|
|00000d60| 20 68 6f 6d 65 22 20 69 | 6e 74 6f 20 4e 41 4d 45 | home" i|nto NAME|
|00000d70| 4e 4f 0d 70 75 74 20 74 | 68 65 20 6e 75 6d 62 65 |NO.put t|he numbe|
|00000d80| 72 20 6f 66 20 63 64 20 | 62 74 6e 20 22 53 4f 4e |r of cd |btn "SON|
|00000d90| 47 22 20 6f 66 20 63 64 | 20 22 55 53 20 68 6f 6d |G" of cd| "US hom|
|00000da0| 65 22 20 69 6e 74 6f 20 | 53 4f 4e 47 4e 4f 0d 70 |e" into |SONGNO.p|
|00000db0| 75 74 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |ut the n|umber of|
|00000dc0| 20 63 64 20 62 74 6e 20 | 22 41 54 43 22 20 6f 66 | cd btn |"ATC" of|
|00000dd0| 20 63 64 20 22 55 53 20 | 68 6f 6d 65 22 20 69 6e | cd "US |home" in|
|00000de0| 74 6f 20 41 54 43 4e 4f | 0d 70 75 74 20 74 68 65 |to ATCNO|.put the|
|00000df0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 64 20 62 74 | number |of cd bt|
|00000e00| 6e 20 22 53 63 6f 72 65 | 20 44 61 74 61 22 20 6f |n "Score| Data" o|
|00000e10| 66 20 63 64 20 22 55 53 | 20 68 6f 6d 65 22 20 69 |f cd "US| home" i|
|00000e20| 6e 74 6f 20 49 44 4e 4f | 0d 70 6f 70 20 63 64 0d |nto IDNO|.pop cd.|
|00000e30| 73 65 74 20 74 68 65 20 | 6c 6f 63 6b 6d 65 73 73 |set the |lockmess|
|00000e40| 61 67 65 73 20 74 6f 20 | 66 61 6c 73 65 0d 65 6e |ages to |false.en|
|00000e50| 64 20 69 66 0d 0d 0d 0d | 2d 2d 70 75 74 20 4f 55 |d if....|--put OU|
|00000e60| 52 20 63 72 65 64 69 74 | 73 20 69 6e 20 74 68 65 |R credit|s in the|
|00000e70| 20 41 70 70 6c 65 20 6d | 65 6e 75 0d 70 75 74 20 | Apple m|enu.put |
|00000e80| 22 41 62 6f 75 74 20 53 | 74 61 74 65 2d 53 6d 61 |"About S|tate-Sma|
|00000e90| 72 74 2e 2e 2e 22 20 69 | 6e 74 6f 20 6d 65 6e 75 |rt..." i|nto menu|
|00000ea0| 49 74 65 6d 20 31 20 6f | 66 20 6d 65 6e 75 20 31 |Item 1 o|f menu 1|
|00000eb0| 0d 73 65 74 20 74 68 65 | 20 6d 65 6e 75 4d 73 67 |.set the| menuMsg|
|00000ec0| 20 6f 66 20 6d 65 6e 75 | 49 74 65 6d 20 31 20 6f | of menu|Item 1 o|
|00000ed0| 66 20 6d 65 6e 75 20 31 | 20 74 6f 20 22 41 62 6f |f menu 1| to "Abo|
|00000ee0| 75 74 22 0d 0d 0d 2d 2d | 75 73 65 20 74 68 65 20 |ut"...--|use the |
|00000ef0| 73 61 76 65 64 20 53 74 | 61 74 65 2d 53 6d 61 72 |saved St|ate-Smar|
|00000f00| 74 20 75 73 65 72 20 6c | 65 76 65 6c 0d 69 66 20 |t user l|evel.if |
|00000f10| 55 53 52 4c 56 4c 20 3c | 3e 20 22 22 74 68 65 6e |USRLVL <|> ""then|
|00000f20| 20 20 73 65 74 20 74 68 | 65 20 75 73 65 72 4c 65 |  set th|e userLe|
|00000f30| 76 65 6c 20 74 6f 20 55 | 53 52 4c 56 4c 0d 0d 2d |vel to U|SRLVL..-|
|00000f40| 2d 63 72 65 61 74 65 20 | 74 68 65 20 53 74 61 74 |-create |the Stat|
|00000f50| 65 2d 53 6d 61 72 74 20 | 6d 65 6e 75 0d 69 66 20 |e-Smart |menu.if |
|00000f60| 22 53 74 61 74 65 2d 53 | 6d 61 72 74 22 20 69 73 |"State-S|mart" is|
|00000f70| 20 6e 6f 74 20 69 6e 20 | 74 68 65 20 6d 65 6e 75 | not in |the menu|
|00000f80| 73 20 74 68 65 6e 0d 63 | 72 65 61 74 65 20 6d 65 |s then.c|reate me|
|00000f90| 6e 75 20 22 53 74 61 74 | 65 2d 53 6d 61 72 74 22 |nu "Stat|e-Smart"|
|00000fa0| 0d 70 75 74 20 22 50 72 | 69 6e 74 20 4d 61 70 22 |.put "Pr|int Map"|
|00000fb0| 20 26 20 52 45 54 55 52 | 4e c2 0d 26 20 22 45 78 | & RETUR|N..& "Ex|
|00000fc0| 70 6f 72 74 20 4d 61 70 | 22 26 20 52 45 54 55 52 |port Map|"& RETUR|
|00000fd0| 4e c2 0d 26 20 22 4e 65 | 77 20 4d 61 70 22 20 26 |N..& "Ne|w Map" &|
|00000fe0| 20 52 45 54 55 52 4e c2 | 0d 26 20 22 2d 22 20 26 | RETURN.|.& "-" &|
|00000ff0| 20 52 45 54 55 52 4e c2 | 0d 26 20 22 51 75 69 7a | RETURN.|.& "Quiz|
|00001000| 22 20 26 20 52 45 54 55 | 52 4e c2 0d 26 20 22 53 |" & RETU|RN..& "S|
|00001010| 6f 75 6e 64 22 20 26 20 | 52 45 54 55 52 4e c2 0d |ound" & |RETURN..|
|00001020| 26 20 22 51 75 69 7a 20 | 4f 70 74 69 6f 6e 73 22 |& "Quiz |Options"|
|00001030| 20 26 20 52 45 54 55 52 | 4e c2 0d 26 20 22 4c 6f | & RETUR|N..& "Lo|
|00001040| 63 61 74 65 22 26 20 52 | 45 54 55 52 4e c2 0d 26 |cate"& R|ETURN..&|
|00001050| 20 22 4c 6f 63 61 74 65 | 20 4e 65 78 74 22 26 20 | "Locate| Next"& |
|00001060| 52 45 54 55 52 4e c2 0d | 26 20 22 47 72 61 70 68 |RETURN..|& "Graph|
|00001070| 20 44 61 74 61 22 20 26 | 20 52 45 54 55 52 4e c2 | Data" &| RETURN.|
|00001080| 0d 26 20 22 50 61 6c 65 | 74 74 65 22 20 26 20 52 |.& "Pale|tte" & R|
|00001090| 45 54 55 52 4e c2 0d 26 | 20 22 4e 65 77 20 50 61 |ETURN..&| "New Pa|
|000010a0| 73 73 77 6f 72 64 22 20 | 26 20 52 45 54 55 52 4e |ssword" |& RETURN|
|000010b0| c2 0d 26 20 22 44 65 43 | 72 79 70 74 22 20 69 6e |..& "DeC|rypt" in|
|000010c0| 74 6f 20 6d 65 6e 75 20 | 22 53 74 61 74 65 2d 53 |to menu |"State-S|
|000010d0| 6d 61 72 74 22 0d 65 6e | 61 62 6c 65 20 6d 65 6e |mart".en|able men|
|000010e0| 75 20 22 53 74 61 74 65 | 2d 53 6d 61 72 74 22 0d |u "State|-Smart".|
|000010f0| 0d 2d 2d 6e 6f 77 20 6d | 61 6b 65 20 74 68 65 20 |.--now m|ake the |
|00001100| 6d 65 6e 75 20 64 6f 20 | 77 68 61 74 20 77 65 20 |menu do |what we |
|00001110| 77 61 6e 74 20 69 74 20 | 74 6f 0d 67 6c 6f 62 61 |want it |to.globa|
|00001120| 6c 20 73 6e 64 0d 69 66 | 20 73 6e 64 20 3c 3e 20 |l snd.if| snd <> |
|00001130| 22 22 20 74 68 65 6e 20 | c2 0d 73 65 74 20 74 68 |"" then |..set th|
|00001140| 65 20 63 68 65 63 6b 4d | 61 72 6b 20 6f 66 20 6d |e checkM|ark of m|
|00001150| 65 6e 75 49 74 65 6d 20 | 22 53 6f 75 6e 64 22 20 |enuItem |"Sound" |
|00001160| 6f 66 20 6d 65 6e 75 20 | 22 53 74 61 74 65 2d 53 |of menu |"State-S|
|00001170| 6d 61 72 74 22 20 74 6f | 20 73 6e 64 0d 64 69 73 |mart" to| snd.dis|
|00001180| 61 62 6c 65 20 6d 65 6e | 75 49 74 65 6d 20 22 4e |able men|uItem "N|
|00001190| 65 77 20 4d 61 70 22 20 | 6f 66 20 6d 65 6e 75 20 |ew Map" |of menu |
|000011a0| 22 53 74 61 74 65 2d 53 | 6d 61 72 74 22 0d 70 75 |"State-S|mart".pu|
|000011b0| 74 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |t the nu|mber of |
|000011c0| 6d 65 6e 75 49 74 65 6d | 73 20 6f 66 20 6d 65 6e |menuItem|s of men|
|000011d0| 75 20 22 53 74 61 74 65 | 2d 53 6d 61 72 74 22 20 |u "State|-Smart" |
|000011e0| 69 6e 74 6f 20 6e 69 74 | 0d 73 65 74 20 74 68 65 |into nit|.set the|
|000011f0| 20 6c 6f 63 6b 6d 65 73 | 73 61 67 65 73 20 74 6f | lockmes|sages to|
|00001200| 20 74 72 75 65 0d 70 75 | 73 68 20 63 64 0d 67 6f | true.pu|sh cd.go|
|00001210| 20 22 a4 43 6f 6e 74 72 | 6f 6c 22 0d 70 75 74 20 | ".Contr|ol".put |
|00001220| 63 64 20 66 6c 64 20 22 | 6d 75 6d 73 67 73 22 20 |cd fld "|mumsgs" |
|00001230| 6f 66 20 66 69 72 73 74 | 20 63 64 20 69 6e 74 6f |of first| cd into|
|00001240| 20 74 65 6d 70 0d 70 6f | 70 20 63 64 0d 73 65 74 | temp.po|p cd.set|
|00001250| 20 74 68 65 20 6c 6f 63 | 6b 6d 65 73 73 61 67 65 | the loc|kmessage|
|00001260| 73 20 74 6f 20 66 61 6c | 73 65 0d 72 65 70 65 61 |s to fal|se.repea|
|00001270| 74 20 77 69 74 68 20 69 | 20 3d 20 31 20 74 6f 20 |t with i| = 1 to |
|00001280| 6e 69 74 0d 73 65 74 20 | 74 68 65 20 6d 65 6e 75 |nit.set |the menu|
|00001290| 4d 73 67 20 6f 66 20 6d | 65 6e 75 49 74 65 6d 20 |Msg of m|enuItem |
|000012a0| 69 20 6f 66 20 6d 65 6e | 75 20 22 53 74 61 74 65 |i of men|u "State|
|000012b0| 2d 53 6d 61 72 74 22 20 | 74 6f 20 6c 69 6e 65 20 |-Smart" |to line |
|000012c0| 69 20 6f 66 20 74 65 6d | 70 0d 65 6e 64 20 72 65 |i of tem|p.end re|
|000012d0| 70 65 61 74 0d 73 65 74 | 20 74 68 65 20 63 6d 64 |peat.set| the cmd|
|000012e0| 43 68 61 72 20 6f 66 20 | 6d 65 6e 75 49 74 65 6d |Char of |menuItem|
|000012f0| 20 22 4c 6f 63 61 74 65 | 22 20 6f 66 20 6d 65 6e | "Locate|" of men|
|00001300| 75 20 22 53 74 61 74 65 | 2d 53 6d 61 72 74 22 20 |u "State|-Smart" |
|00001310| 74 6f 20 4c 0d 73 65 74 | 20 74 68 65 20 63 6d 64 |to L.set| the cmd|
|00001320| 43 68 61 72 20 6f 66 20 | 6d 65 6e 75 49 74 65 6d |Char of |menuItem|
|00001330| 20 22 4c 6f 63 61 74 65 | 20 4e 65 78 74 22 20 6f | "Locate| Next" o|
|00001340| 66 20 6d 65 6e 75 20 22 | 53 74 61 74 65 2d 53 6d |f menu "|State-Sm|
|00001350| 61 72 74 22 20 74 6f 20 | 47 0d 65 6e 64 20 69 66 |art" to |G.end if|
|00001360| 0d 67 6c 6f 62 61 6c 20 | 69 73 69 6e 69 74 0d 70 |.global |isinit.p|
|00001370| 75 74 20 74 72 75 65 20 | 69 6e 74 6f 20 69 73 69 |ut true |into isi|
|00001380| 6e 69 74 20 20 2d 2d 77 | 65 20 61 72 65 20 69 6e |nit  --w|e are in|
|00001390| 69 74 74 69 6e 67 20 6e | 6f 77 0d 75 6e 6c 6f 63 |itting n|ow.unloc|
|000013a0| 6b 20 73 63 72 65 65 6e | 0d 65 6e 64 20 69 6e 69 |k screen|.end ini|
|000013b0| 74 53 53 0d 0d 0d 0d 6f | 6e 20 73 61 76 65 53 53 |tSS....o|n saveSS|
|000013c0| 0d 6c 6f 63 6b 20 73 63 | 72 65 65 6e 0d 70 75 73 |.lock sc|reen.pus|
|000013d0| 68 20 63 64 0d 73 65 74 | 20 74 68 65 20 6c 6f 63 |h cd.set| the loc|
|000013e0| 6b 6d 65 73 73 61 67 65 | 73 20 74 6f 20 74 72 75 |kmessage|s to tru|
|000013f0| 65 0d 67 6f 20 22 a4 43 | 6f 6e 74 72 6f 6c 22 0d |e.go ".C|ontrol".|
|00001400| 73 65 74 20 74 68 65 20 | 6c 6f 63 6b 6d 65 73 73 |set the |lockmess|
|00001410| 61 67 65 73 20 74 6f 20 | 66 61 6c 73 65 0d 70 75 |ages to |false.pu|
|00001420| 74 20 63 64 20 66 6c 64 | 20 22 67 6c 6f 62 6c 69 |t cd fld| "globli|
|00001430| 73 74 22 20 6f 66 20 63 | 64 20 22 68 65 6c 70 22 |st" of c|d "help"|
|00001440| 20 20 69 6e 74 6f 20 67 | 6c 0d 70 75 74 20 74 68 |  into g|l.put th|
|00001450| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 6c 69 6e 65 |e number| of line|
|00001460| 73 20 6f 66 20 67 6c 20 | 69 6e 74 6f 20 6e 0d 72 |s of gl |into n.r|
|00001470| 65 70 65 61 74 20 77 69 | 74 68 20 69 20 3d 20 31 |epeat wi|th i = 1|
|00001480| 20 74 6f 20 6e 0d 70 75 | 74 20 6c 69 6e 65 20 69 | to n.pu|t line i|
|00001490| 20 6f 66 20 67 6c 20 69 | 6e 74 6f 20 76 72 0d 70 | of gl i|nto vr.p|
|000014a0| 75 74 20 22 67 6c 6f 62 | 61 6c 20 22 20 26 20 76 |ut "glob|al " & v|
|000014b0| 72 20 69 6e 74 6f 20 6c | 69 6e 0d 64 6f 20 6c 69 |r into l|in.do li|
|000014c0| 6e 0d 70 75 74 20 22 70 | 75 74 20 22 26 20 76 72 |n.put "p|ut "& vr|
|000014d0| 20 26 20 22 20 69 6e 74 | 6f 20 6c 69 6e 65 20 22 | & " int|o line "|
|000014e0| 20 26 20 69 20 26 20 22 | 20 6f 66 20 74 65 6d 70 | & i & "| of temp|
|000014f0| 22 20 69 6e 74 6f 20 6c | 69 6e 0d 64 6f 20 6c 69 |" into l|in.do li|
|00001500| 6e 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 70 75 74 |n.end re|peat.put|
|00001510| 20 74 65 6d 70 20 69 6e | 74 6f 20 63 61 72 64 20 | temp in|to card |
|00001520| 66 69 65 6c 64 20 22 6d | 65 6d 6f 72 79 22 20 6f |field "m|emory" o|
|00001530| 66 20 63 61 72 64 20 22 | 68 65 6c 70 22 0d 70 6f |f card "|help".po|
|00001540| 70 20 63 64 0d 75 6e 6c | 6f 63 6b 20 73 63 72 65 |p cd.unl|ock scre|
|00001550| 65 6e 0d 65 6e 64 20 73 | 61 76 65 53 53 0d 0d 0d |en.end s|aveSS...|
|00001560| 0d 6f 6e 20 64 6f 4d 65 | 6e 75 20 78 0d 69 66 20 |.on doMe|nu x.if |
|00001570| 28 78 20 69 73 20 22 4f | 70 65 6e 20 53 74 61 63 |(x is "O|pen Stac|
|00001580| 6b 2e 2e 2e 22 29 20 6f | 72 20 20 28 78 20 69 73 |k...") o|r  (x is|
|00001590| 20 22 47 6f 20 48 6f 6d | 65 22 29 c2 0d 6f 72 20 | "Go Hom|e")..or |
|000015a0| 28 78 20 69 73 20 22 43 | 6c 6f 73 65 20 53 74 61 |(x is "C|lose Sta|
|000015b0| 63 6b 22 29 20 6f 72 20 | 28 78 20 69 73 20 22 4e |ck") or |(x is "N|
|000015c0| 65 77 20 53 74 61 63 6b | 2e 2e 2e 22 29 c2 0d 6f |ew Stack|...")..o|
|000015d0| 72 20 28 78 20 69 73 20 | 22 51 75 69 74 20 48 79 |r (x is |"Quit Hy|
|000015e0| 70 65 72 43 61 72 64 22 | 29 20 74 68 65 6e 0d 2d |perCard"|) then.-|
|000015f0| 2d 62 65 63 61 75 73 65 | 20 77 65 20 64 6f 6e 27 |-because| we don'|
|00001600| 74 20 77 61 6e 74 20 74 | 6f 20 64 6f 20 61 20 63 |t want t|o do a c|
|00001610| 6f 6d 70 6c 65 74 65 20 | 72 65 69 6e 69 74 20 65 |omplete |reinit e|
|00001620| 61 63 68 20 74 69 6d 65 | 0d 2d 2d 20 69 66 20 22 |ach time|.-- if "|
|00001630| 53 74 61 74 65 2d 53 6d | 61 72 74 22 20 69 73 20 |State-Sm|art" is |
|00001640| 69 6e 20 74 68 65 20 6d | 65 6e 75 73 20 74 68 65 |in the m|enus the|
|00001650| 6e 20 64 65 6c 65 74 65 | 20 6d 65 6e 75 20 22 53 |n delete| menu "S|
|00001660| 74 61 74 65 2d 53 6d 61 | 72 74 22 0d 2d 2d 20 20 |tate-Sma|rt".--  |
|00001670| 69 66 20 22 4d 61 70 20 | 43 6f 6c 6f 72 22 20 69 |if "Map |Color" i|
|00001680| 73 20 69 6e 20 74 68 65 | 20 6d 65 6e 75 73 20 74 |s in the| menus t|
|00001690| 68 65 6e 20 64 65 6c 65 | 74 65 20 6d 65 6e 75 20 |hen dele|te menu |
|000016a0| 22 4d 61 70 20 43 6f 6c | 6f 72 22 0d 2d 2d 20 20 |"Map Col|or".--  |
|000016b0| 70 75 74 20 22 41 62 6f | 75 74 20 48 79 70 65 72 |put "Abo|ut Hyper|
|000016c0| 43 61 72 64 2e 2e 2e 22 | 20 69 6e 74 6f 20 6d 65 |Card..."| into me|
|000016d0| 6e 75 49 74 65 6d 20 31 | 20 6f 66 20 6d 65 6e 75 |nuItem 1| of menu|
|000016e0| 20 31 0d 2d 2d 73 65 74 | 20 74 68 65 20 6d 65 6e | 1.--set| the men|
|000016f0| 75 4d 73 67 20 6f 66 20 | 6d 65 6e 75 49 74 65 6d |uMsg of |menuItem|
|00001700| 20 31 20 6f 66 20 6d 65 | 6e 75 20 31 20 74 6f 20 | 1 of me|nu 1 to |
|00001710| 65 6d 70 74 79 0d 72 65 | 73 65 74 20 6d 65 6e 75 |empty.re|set menu|
|00001720| 62 61 72 0d 73 61 76 65 | 53 53 20 2d 2d 74 68 69 |bar.save|SS --thi|
|00001730| 73 20 69 73 20 77 68 79 | 20 77 65 20 69 6e 63 6c |s is why| we incl|
|00001740| 75 64 65 20 51 75 69 74 | 20 48 79 70 65 72 43 61 |ude Quit| HyperCa|
|00001750| 72 64 0d 67 6c 6f 62 61 | 6c 20 69 73 69 6e 69 74 |rd.globa|l isinit|
|00001760| 0d 70 75 74 20 66 61 6c | 73 65 20 69 6e 74 6f 20 |.put fal|se into |
|00001770| 69 73 69 6e 69 74 0d 65 | 6e 64 20 69 66 0d 70 61 |isinit.e|nd if.pa|
|00001780| 73 73 20 64 6f 4d 65 6e | 75 0d 65 6e 64 20 64 6f |ss doMen|u.end do|
|00001790| 4d 65 6e 75 0d 0d 6f 6e | 20 41 62 6f 75 74 0d 76 |Menu..on| About.v|
|000017a0| 69 73 75 61 6c 20 64 69 | 73 73 6f 6c 76 65 20 73 |isual di|ssolve s|
|000017b0| 6c 6f 77 20 74 6f 20 63 | 64 0d 67 6f 20 63 64 20 |low to c|d.go cd |
|000017c0| 22 41 62 6f 75 74 a4 22 | 20 6f 66 20 73 74 61 63 |"About."| of stac|
|000017d0| 6b 20 22 a4 43 6f 6e 74 | 72 6f 6c 22 0d 65 6e 64 |k ".Cont|rol".end|
|000017e0| 20 41 62 6f 75 74 0d 0d | 66 75 6e 63 74 69 6f 6e | About..|function|
|000017f0| 20 73 74 6b 6e 20 63 0d | 69 66 20 63 20 69 73 20 | stkn c.|if c is |
|00001800| 22 43 22 20 74 68 65 6e | 20 72 65 74 75 72 6e 28 |"C" then| return(|
|00001810| 20 22 a4 43 69 74 69 65 | 73 22 29 0d 65 6c 73 65 | ".Citie|s").else|
|00001820| 20 69 66 20 63 20 69 73 | 20 22 54 22 20 74 68 65 | if c is| "T" the|
|00001830| 6e 20 72 65 74 75 72 6e | 28 22 a4 54 6f 70 6f 67 |n return|(".Topog|
|00001840| 72 61 70 68 79 22 20 29 | 0d 65 6c 73 65 20 69 66 |raphy" )|.else if|
|00001850| 20 63 20 69 73 20 22 58 | 22 20 74 68 65 6e 20 72 | c is "X|" then r|
|00001860| 65 74 75 72 6e 28 22 a4 | 43 6f 6e 74 6f 75 72 73 |eturn(".|Contours|
|00001870| 22 29 0d 65 6c 73 65 20 | 69 66 20 63 20 69 73 20 |").else |if c is |
|00001880| 22 41 22 20 74 68 65 6e | 20 72 65 74 75 72 6e 28 |"A" then| return(|
|00001890| 22 a4 43 69 74 69 65 73 | 22 29 0d 65 6c 73 65 20 |".Cities|").else |
|000018a0| 72 65 74 75 72 6e 28 20 | 22 a4 43 6f 6e 74 72 6f |return( |".Contro|
|000018b0| 6c 22 29 0d 65 6e 64 20 | 73 74 6b 6e 0d 0d 6f 6e |l").end |stkn..on|
|000018c0| 20 64 6f 47 72 61 70 68 | 0d 67 6f 20 66 69 72 73 | doGraph|.go firs|
|000018d0| 74 20 63 61 72 64 20 6f | 66 20 62 67 20 22 4d 61 |t card o|f bg "Ma|
|000018e0| 70 20 43 6f 6c 6f 72 20 | 42 47 22 20 6f 66 20 73 |p Color |BG" of s|
|000018f0| 74 61 63 6b 20 22 a4 43 | 6f 6e 74 72 6f 6c 22 0d |tack ".C|ontrol".|
|00001900| 2d 2d 6e 61 76 20 2d 2d | 67 65 74 73 20 74 68 65 |--nav --|gets the|
|00001910| 20 67 65 6e 65 72 61 6c | 20 6e 61 76 69 67 61 74 | general| navigat|
|00001920| 69 6f 6e 20 70 61 6c 65 | 74 74 65 20 75 70 0d 65 |ion pale|tte up.e|
|00001930| 6e 64 20 64 6f 47 72 61 | 70 68 0d 0d 6f 6e 20 64 |nd doGra|ph..on d|
|00001940| 6f 50 61 6c 0d 2d 2d 67 | 65 74 73 20 74 68 65 20 |oPal.--g|ets the |
|00001950| 61 70 70 72 6f 70 72 69 | 61 74 65 20 70 61 6c 65 |appropri|ate pale|
|00001960| 74 74 65 20 77 69 6e 64 | 6f 77 20 66 6f 72 20 63 |tte wind|ow for c|
|00001970| 75 72 72 65 6e 74 20 73 | 74 61 63 6b 0d 2d 2d 69 |urrent s|tack.--i|
|00001980| 6e 20 63 61 73 65 20 69 | 74 20 68 61 73 20 62 65 |n case i|t has be|
|00001990| 65 6e 20 69 6e 61 64 76 | 65 72 74 65 6e 74 6c 79 |en inadv|ertently|
|000019a0| 20 63 6c 6f 73 65 64 0d | 70 75 74 20 74 68 65 20 | closed.|put the |
|000019b0| 73 68 6f 72 74 20 6e 61 | 6d 65 20 6f 66 20 74 68 |short na|me of th|
|000019c0| 69 73 20 73 74 61 63 6b | 20 69 6e 74 6f 20 74 73 |is stack| into ts|
|000019d0| 6e 0d 69 66 20 74 73 6e | 20 69 73 20 22 a4 54 6f |n.if tsn| is ".To|
|000019e0| 70 6f 67 72 61 70 68 79 | 22 20 74 68 65 6e 20 70 |pography|" then p|
|000019f0| 75 74 20 22 54 6f 70 4e | 61 76 22 20 69 6e 74 6f |ut "TopN|av" into|
|00001a00| 20 74 70 6e 0d 69 66 20 | 74 73 6e 20 69 73 20 22 | tpn.if |tsn is "|
|00001a10| a4 43 6f 6e 74 6f 75 72 | 73 22 20 74 68 65 6e 20 |.Contour|s" then |
|00001a20| 70 75 74 20 22 43 6f 6e | 74 50 61 6c 22 20 69 6e |put "Con|tPal" in|
|00001a30| 74 6f 20 74 70 6e 0d 69 | 66 20 74 73 6e 20 69 73 |to tpn.i|f tsn is|
|00001a40| 20 22 a4 43 69 74 69 65 | 73 22 20 74 68 65 6e 20 | ".Citie|s" then |
|00001a50| 70 75 74 20 22 43 69 74 | 50 61 6c 22 20 69 6e 74 |put "Cit|Pal" int|
|00001a60| 6f 20 74 70 6e 0d 69 66 | 20 74 73 6e 20 69 73 20 |o tpn.if| tsn is |
|00001a70| 22 a4 43 6f 6e 74 72 6f | 6c 22 20 74 68 65 6e 20 |".Contro|l" then |
|00001a80| 70 75 74 20 22 53 53 4e | 61 76 22 20 69 6e 74 6f |put "SSN|av" into|
|00001a90| 20 74 70 6e 0d 69 66 20 | 74 73 6e 20 69 73 20 22 | tpn.if |tsn is "|
|00001aa0| a4 55 73 65 72 20 47 75 | 69 64 65 22 20 74 68 65 |.User Gu|ide" the|
|00001ab0| 6e 20 70 75 74 20 22 4e | 61 76 69 67 61 74 6f 72 |n put "N|avigator|
|00001ac0| 22 20 69 6e 74 6f 20 74 | 70 6e 0d 67 65 74 20 74 |" into t|pn.get t|
|00001ad0| 68 65 20 73 68 6f 72 74 | 20 6e 61 6d 65 20 6f 66 |he short| name of|
|00001ae0| 20 74 68 69 73 20 62 67 | 0d 69 66 20 69 74 20 69 | this bg|.if it i|
|00001af0| 73 20 22 4d 61 70 20 43 | 6f 6c 6f 72 20 42 47 22 |s "Map C|olor BG"|
|00001b00| 20 74 68 65 6e 20 70 75 | 74 20 22 4e 61 76 69 67 | then pu|t "Navig|
|00001b10| 61 74 6f 72 22 20 69 6e | 74 6f 20 74 70 6e 0d 69 |ator" in|to tpn.i|
|00001b20| 66 20 69 74 20 63 6f 6e | 74 61 69 6e 73 20 22 52 |f it con|tains "R|
|00001b30| 65 67 69 6f 6e 22 20 74 | 68 65 6e 0d 64 69 73 70 |egion" t|hen.disp|
|00001b40| 50 61 6c 20 22 43 6f 6d | 70 61 73 73 22 0d 65 6e |Pal "Com|pass".en|
|00001b50| 64 20 69 66 0d 64 69 73 | 70 50 61 6c 20 74 70 6e |d if.dis|pPal tpn|
|00001b60| 0d 65 6e 64 20 64 6f 50 | 61 6c 0d 0d 6f 6e 20 64 |.end doP|al..on d|
|00001b70| 69 73 70 50 61 6c 20 70 | 61 6c 0d 70 75 74 20 66 |ispPal p|al.put f|
|00001b80| 69 6e 64 78 79 28 70 61 | 6c 29 20 69 6e 74 6f 20 |indxy(pa|l) into |
|00001b90| 78 79 0d 6c 6f 63 6b 20 | 73 63 72 65 65 6e 0d 69 |xy.lock |screen.i|
|00001ba0| 66 20 70 61 6c 20 69 73 | 20 6e 6f 74 20 69 6e 20 |f pal is| not in |
|00001bb0| 74 68 65 20 77 69 6e 64 | 6f 77 73 20 74 68 65 6e |the wind|ows then|
|00001bc0| 0d 70 61 6c 65 74 74 65 | 20 70 61 6c 0d 65 6e 64 |.palette| pal.end|
|00001bd0| 20 69 66 0d 75 6e 6c 6f | 63 6b 20 73 63 72 65 65 | if.unlo|ck scree|
|00001be0| 6e 0d 69 66 20 78 79 20 | 69 73 20 6e 6f 74 20 65 |n.if xy |is not e|
|00001bf0| 6d 70 74 79 20 74 68 65 | 6e 0d 73 68 6f 77 20 77 |mpty the|n.show w|
|00001c00| 69 6e 64 6f 77 20 70 61 | 6c 20 61 74 20 78 79 0d |indow pa|l at xy.|
|00001c10| 65 6c 73 65 0d 73 68 6f | 77 20 77 69 6e 64 6f 77 |else.sho|w window|
|00001c20| 20 70 61 6c 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 | pal.end| if.end |
|00001c30| 64 69 73 70 50 61 6c 0d | 0d 0d 66 75 6e 63 74 69 |dispPal.|..functi|
|00001c40| 6f 6e 20 66 69 6e 64 78 | 79 20 70 61 6c 0d 2d 2d |on findx|y pal.--|
|00001c50| 74 68 69 73 20 69 73 20 | 61 20 77 6f 72 6b 61 72 |this is |a workar|
|00001c60| 6f 75 6e 64 20 66 6f 72 | 20 61 20 32 2e 30 20 62 |ound for| a 2.0 b|
|00001c70| 75 67 20 77 68 65 72 65 | 20 74 68 65 0d 2d 2d 76 |ug where| the.--v|
|00001c80| 61 6c 75 65 20 6f 66 20 | 61 20 6d 75 6c 74 69 20 |alue of |a multi |
|00001c90| 69 74 65 6d 20 6f 62 6a | 65 63 74 20 6f 6e 6c 79 |item obj|ect only|
|00001ca0| 20 65 76 61 6c 75 61 74 | 65 73 0d 2d 2d 74 6f 20 | evaluat|es.--to |
|00001cb0| 74 68 65 20 66 69 72 73 | 74 20 69 74 65 6d 2e 20 |the firs|t item. |
|00001cc0| 20 49 20 77 6f 75 6c 64 | 20 68 61 76 65 20 6d 75 | I would| have mu|
|00001cd0| 63 68 20 70 72 65 66 65 | 72 72 65 64 0d 2d 2d 74 |ch prefe|rred.--t|
|00001ce0| 6f 20 64 6f 20 74 68 69 | 73 20 69 6e 6c 69 6e 65 |o do thi|s inline|
|00001cf0| 20 61 6e 64 20 75 73 65 | 20 76 61 6c 75 65 20 62 | and use| value b|
|00001d00| 75 74 20 69 74 20 64 6f | 65 73 6e 27 74 20 77 6f |ut it do|esn't wo|
|00001d10| 72 6b 0d 70 75 74 20 22 | 67 6c 6f 62 61 6c 20 22 |rk.put "|global "|
|00001d20| 26 70 61 6c 26 22 47 6c | 6f 62 61 6c 22 20 69 6e |&pal&"Gl|obal" in|
|00001d30| 74 6f 20 6c 69 6e 65 0d | 64 6f 20 6c 69 6e 65 0d |to line.|do line.|
|00001d40| 70 75 74 20 22 69 66 20 | 22 26 70 61 6c 26 22 47 |put "if |"&pal&"G|
|00001d50| 6c 6f 62 61 6c 20 69 73 | 20 65 6d 70 74 79 20 74 |lobal is| empty t|
|00001d60| 68 65 6e 20 70 75 74 20 | 22 26 51 55 4f 54 45 26 |hen put |"&QUOTE&|
|00001d70| 22 30 2c 30 22 26 51 55 | 4f 54 45 26 22 20 69 6e |"0,0"&QU|OTE&" in|
|00001d80| 74 6f 20 61 6e 73 22 20 | 69 6e 74 6f 20 6c 69 6e |to ans" |into lin|
|00001d90| 65 0d 64 6f 20 6c 69 6e | 65 20 20 20 2d 2d 65 6d |e.do lin|e   --em|
|00001da0| 70 74 79 20 69 66 20 6e | 65 76 65 72 20 75 73 65 |pty if n|ever use|
|00001db0| 64 20 62 65 66 6f 72 65 | 0d 70 75 74 20 22 69 66 |d before|.put "if|
|00001dc0| 20 22 26 70 61 6c 26 22 | 47 6c 6f 62 61 6c 20 69 | "&pal&"|Global i|
|00001dd0| 73 20 6e 6f 74 20 65 6d | 70 74 79 20 74 68 65 6e |s not em|pty then|
|00001de0| 20 70 75 74 20 22 26 70 | 61 6c 26 22 47 6c 6f 62 | put "&p|al&"Glob|
|00001df0| 61 6c 20 69 6e 74 6f 20 | 61 6e 73 22 20 69 6e 74 |al into |ans" int|
|00001e00| 6f 20 6c 69 6e 65 0d 64 | 6f 20 6c 69 6e 65 20 20 |o line.d|o line  |
|00001e10| 20 2d 2d 6f 74 68 65 72 | 77 69 73 65 20 75 73 65 | --other|wise use|
|00001e20| 20 6f 6c 64 20 76 61 6c | 75 65 0d 70 75 74 20 22 | old val|ue.put "|
|00001e30| 69 66 20 22 26 70 61 6c | 26 22 47 6c 6f 62 61 6c |if "&pal|&"Global|
|00001e40| 20 69 73 20 74 72 75 65 | 20 74 68 65 6e 20 70 75 | is true| then pu|
|00001e50| 74 20 22 26 51 55 4f 54 | 45 26 51 55 4f 54 45 26 |t "&QUOT|E&QUOTE&|
|00001e60| 22 20 69 6e 74 6f 20 61 | 6e 73 22 20 69 6e 74 6f |" into a|ns" into|
|00001e70| 20 6c 69 6e 65 0d 64 6f | 20 6c 69 6e 65 20 20 20 | line.do| line   |
|00001e80| 2d 2d 74 72 75 65 20 69 | 66 20 61 6c 72 65 61 64 |--true i|f alread|
|00001e90| 79 20 73 68 6f 77 69 6e | 67 20 6e 6f 20 6e 65 65 |y showin|g no nee|
|00001ea0| 64 20 74 6f 20 72 65 64 | 6f 0d 72 65 74 75 72 6e |d to red|o.return|
|00001eb0| 20 61 6e 73 0d 65 6e 64 | 20 66 69 6e 64 78 79 0d | ans.end| findxy.|
|00001ec0| 0d 0d 0d 6f 6e 20 70 72 | 6f 74 65 63 74 0d 70 75 |...on pr|otect.pu|
|00001ed0| 74 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |t the nu|mber of |
|00001ee0| 63 64 73 20 69 6e 74 6f | 20 6e 0d 72 65 70 65 61 |cds into| n.repea|
|00001ef0| 74 20 77 69 74 68 20 69 | 20 3d 20 31 20 74 6f 20 |t with i| = 1 to |
|00001f00| 6e 0d 73 65 74 20 74 68 | 65 20 63 61 6e 74 44 65 |n.set th|e cantDe|
|00001f10| 6c 65 74 65 20 6f 66 20 | 63 64 20 69 20 74 6f 20 |lete of |cd i to |
|00001f20| 54 52 55 45 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |TRUE.end| repeat.|
|00001f30| 65 6e 64 20 70 72 6f 74 | 65 63 74 0d 0d 2d 2d 68 |end prot|ect..--h|
|00001f40| 61 6e 64 6c 65 72 20 66 | 6f 72 20 4f 46 46 2d 4d |andler f|or OFF-M|
|00001f50| 41 50 20 62 75 74 74 6f | 6e 73 0d 6f 6e 20 6d 6f |AP butto|ns.on mo|
|00001f60| 75 73 65 44 6f 77 6e 0d | 70 75 74 20 63 68 61 72 |useDown.|put char|
|00001f70| 20 32 20 74 6f 20 33 20 | 6f 66 20 77 6f 72 64 20 | 2 to 3 |of word |
|00001f80| 33 20 6f 66 20 74 68 65 | 20 74 61 72 67 65 74 20 |3 of the| target |
|00001f90| 69 6e 74 6f 20 73 0d 69 | 66 20 73 20 69 73 20 22 |into s.i|f s is "|
|00001fa0| 4f 4d 22 20 74 68 65 6e | 0d 70 75 73 68 20 63 64 |OM" then|.push cd|
|00001fb0| 0d 67 6f 20 63 64 20 22 | 61 64 22 0d 65 6e 64 20 |.go cd "|ad".end |
|00001fc0| 69 66 0d 65 6e 64 20 6d | 6f 75 73 65 44 6f 77 6e |if.end m|ouseDown|
|00001fd0| 0d 0d 2d 2d 68 61 6e 64 | 6c 65 72 20 66 6f 72 20 |..--hand|ler for |
|00001fe0| 61 64 6a 61 63 65 6e 74 | 20 73 74 61 74 65 20 62 |adjacent| state b|
|00001ff0| 75 74 74 6f 6e 73 0d 2d | 2d 74 68 65 73 65 20 62 |uttons.-|-these b|
|00002000| 75 74 74 6f 6e 73 20 68 | 61 76 65 20 6e 6f 20 73 |uttons h|ave no s|
|00002010| 63 72 69 70 74 73 20 73 | 6f 20 74 68 65 79 20 66 |cripts s|o they f|
|00002020| 61 6c 6c 20 74 68 72 6f | 75 67 68 20 74 6f 20 68 |all thro|ugh to h|
|00002030| 65 72 65 0d 6f 6e 20 6d | 6f 75 73 65 55 70 0d 70 |ere.on m|ouseUp.p|
|00002040| 75 74 20 67 65 74 45 66 | 66 65 63 74 20 28 29 20 |ut getEf|fect () |
|00002050| 69 6e 74 6f 20 76 69 73 | 65 66 20 20 2d 2d 62 61 |into vis|ef  --ba|
|00002060| 73 65 73 20 74 68 69 73 | 20 6f 6e 20 74 68 65 20 |ses this| on the |
|00002070| 63 6c 69 63 6b 6c 6f 63 | 0d 70 75 74 20 63 68 61 |clickloc|.put cha|
|00002080| 72 20 32 20 74 6f 20 33 | 20 6f 66 20 77 6f 72 64 |r 2 to 3| of word|
|00002090| 20 33 20 6f 66 20 74 68 | 65 20 74 61 72 67 65 74 | 3 of th|e target|
|000020a0| 20 69 6e 74 6f 20 78 6e | 0d 69 66 20 78 6e 20 69 | into xn|.if xn i|
|000020b0| 73 20 22 4f 4d 22 20 74 | 68 65 6e 0d 70 6f 70 20 |s "OM" t|hen.pop |
|000020c0| 63 61 72 64 0d 65 78 69 | 74 20 6d 6f 75 73 65 55 |card.exi|t mouseU|
|000020d0| 70 0d 65 6e 64 20 69 66 | 0d 67 65 74 20 74 68 65 |p.end if|.get the|
|000020e0| 20 73 68 6f 72 74 20 6e | 61 6d 65 20 6f 66 20 74 | short n|ame of t|
|000020f0| 68 69 73 20 63 64 0d 69 | 66 20 63 68 61 72 20 31 |his cd.i|f char 1|
|00002100| 20 6f 66 20 69 74 20 69 | 73 20 22 41 22 20 74 68 | of it i|s "A" th|
|00002110| 65 6e 20 70 75 74 20 22 | 43 22 20 69 6e 74 6f 20 |en put "|C" into |
|00002120| 63 68 61 72 20 31 20 6f | 66 20 69 74 0d 70 75 74 |char 1 o|f it.put|
|00002130| 20 63 68 61 72 20 31 20 | 74 6f 20 32 20 6f 66 20 | char 1 |to 2 of |
|00002140| 69 74 20 26 20 78 6e 20 | 69 6e 74 6f 20 78 6e 0d |it & xn |into xn.|
|00002150| 76 69 73 75 61 6c 20 76 | 69 73 65 66 0d 67 6f 20 |visual v|isef.go |
|00002160| 63 61 72 64 20 78 6e 0d | 65 6e 64 20 6d 6f 75 73 |card xn.|end mous|
|00002170| 65 55 70 0d 0d 66 75 6e | 63 74 69 6f 6e 20 67 65 |eUp..fun|ction ge|
|00002180| 74 45 66 66 65 63 74 20 | 20 2d 2d 66 6f 72 20 61 |tEffect | --for a|
|00002190| 64 6a 61 63 65 6e 74 20 | 73 74 61 74 65 20 62 75 |djacent |state bu|
|000021a0| 74 74 6f 6e 73 0d 70 75 | 74 20 74 68 65 20 63 6c |ttons.pu|t the cl|
|000021b0| 69 63 6b 56 20 69 6e 74 | 6f 20 63 56 0d 70 75 74 |ickV int|o cV.put|
|000021c0| 20 74 68 65 20 63 6c 69 | 63 6b 48 20 69 6e 74 6f | the cli|ckH into|
|000021d0| 20 63 48 0d 70 75 74 20 | 61 62 73 28 63 48 20 2d | cH.put |abs(cH -|
|000021e0| 20 32 35 36 29 20 69 6e | 74 6f 20 65 70 73 48 0d | 256) in|to epsH.|
|000021f0| 70 75 74 20 61 62 73 28 | 63 56 20 2d 20 31 37 31 |put abs(|cV - 171|
|00002200| 29 20 69 6e 74 6f 20 65 | 70 73 56 0d 69 66 20 31 |) into e|psV.if 1|
|00002210| 2e 35 20 2a 20 65 70 73 | 56 20 b3 20 65 70 73 48 |.5 * eps|V . epsH|
|00002220| 20 74 68 65 6e 0d 69 66 | 20 63 56 20 b2 20 31 37 | then.if| cV . 17|
|00002230| 31 20 74 68 65 6e 0d 70 | 75 74 20 22 44 6f 77 6e |1 then.p|ut "Down|
|00002240| 22 20 69 6e 74 6f 20 64 | 69 72 65 63 0d 65 6c 73 |" into d|irec.els|
|00002250| 65 0d 70 75 74 20 22 55 | 70 22 20 69 6e 74 6f 20 |e.put "U|p" into |
|00002260| 64 69 72 65 63 0d 65 6e | 64 20 69 66 0d 65 6c 73 |direc.en|d if.els|
|00002270| 65 0d 69 66 20 63 48 20 | b2 20 32 35 36 20 74 68 |e.if cH |. 256 th|
|00002280| 65 6e 0d 70 75 74 20 22 | 52 69 67 68 74 22 20 69 |en.put "|Right" i|
|00002290| 6e 74 6f 20 64 69 72 65 | 63 0d 65 6c 73 65 0d 70 |nto dire|c.else.p|
|000022a0| 75 74 20 22 4c 65 66 74 | 22 20 69 6e 74 6f 20 64 |ut "Left|" into d|
|000022b0| 69 72 65 63 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |irec.end| if.end |
|000022c0| 69 66 0d 72 65 74 75 72 | 6e 20 22 73 63 72 6f 6c |if.retur|n "scrol|
|000022d0| 6c 22 20 26 26 20 64 69 | 72 65 63 20 26 26 20 22 |l" && di|rec && "|
|000022e0| 73 6c 6f 77 22 0d 65 6e | 64 20 67 65 74 45 66 66 |slow".en|d getEff|
|000022f0| 65 63 74 0d 0d 0d 6f 6e | 20 64 6f 53 6f 75 6e 64 |ect...on| doSound|
|00002300| 0d 73 65 74 20 74 68 65 | 20 63 68 65 63 6b 4d 61 |.set the| checkMa|
|00002310| 72 6b 20 6f 66 20 6d 65 | 6e 75 49 74 65 6d 20 22 |rk of me|nuItem "|
|00002320| 53 6f 75 6e 64 22 20 6f | 66 20 6d 65 6e 75 20 22 |Sound" o|f menu "|
|00002330| 53 74 61 74 65 2d 53 6d | 61 72 74 22 20 74 6f c2 |State-Sm|art" to.|
|00002340| 0d 6e 6f 74 20 28 74 68 | 65 20 63 68 65 63 6b 4d |.not (th|e checkM|
|00002350| 61 72 6b 20 6f 66 20 6d | 65 6e 75 49 74 65 6d 20 |ark of m|enuItem |
|00002360| 22 53 6f 75 6e 64 22 20 | 6f 66 20 6d 65 6e 75 20 |"Sound" |of menu |
|00002370| 22 53 74 61 74 65 2d 53 | 6d 61 72 74 22 29 0d 67 |"State-S|mart").g|
|00002380| 6c 6f 62 61 6c 20 73 6e | 64 0d 70 75 74 20 6e 6f |lobal sn|d.put no|
|00002390| 74 28 73 6e 64 29 20 69 | 6e 74 6f 20 73 6e 64 0d |t(snd) i|nto snd.|
|000023a0| 65 6e 64 20 64 6f 53 6f | 75 6e 64 0d 0d 0d 6f 6e |end doSo|und...on|
|000023b0| 20 64 6f 4b 69 6c 6c 51 | 0d 67 6c 6f 62 61 6c 20 | doKillQ|.global |
|000023c0| 51 49 4e 50 0d 61 6e 73 | 77 65 72 20 22 41 62 61 |QINP.ans|wer "Aba|
|000023d0| 6e 64 6f 6e 20 51 75 69 | 7a 3f 22 20 77 69 74 68 |ndon Qui|z?" with|
|000023e0| 20 22 4f 4b 22 20 6f 72 | 20 22 43 61 6e 63 65 6c | "OK" or| "Cancel|
|000023f0| 22 0d 69 66 20 69 74 20 | 69 73 20 22 4f 4b 22 20 |".if it |is "OK" |
|00002400| 74 68 65 6e 0d 70 75 74 | 20 66 61 6c 73 65 20 69 |then.put| false i|
|00002410| 6e 74 6f 20 51 49 4e 50 | 0d 70 75 74 20 65 6d 70 |nto QINP|.put emp|
|00002420| 74 79 20 69 6e 74 6f 20 | 51 69 6e 70 43 61 72 64 |ty into |QinpCard|
|00002430| 0d 63 6c 65 61 6e 55 70 | 0d 65 6e 64 20 69 66 0d |.cleanUp|.end if.|
|00002440| 65 6e 64 20 64 6f 4b 69 | 6c 6c 51 0d 0d 6f 6e 20 |end doKi|llQ..on |
|00002450| 63 6c 65 61 6e 55 70 0d | 67 6c 6f 62 61 6c 20 66 |cleanUp.|global f|
|00002460| 6e 61 6d 65 0d 69 66 20 | 74 68 65 20 73 68 6f 72 |name.if |the shor|
|00002470| 74 20 6e 61 6d 65 20 6f | 66 20 74 68 69 73 20 62 |t name o|f this b|
|00002480| 67 20 69 73 20 6e 6f 74 | 20 22 49 6e 66 6f 22 20 |g is not| "Info" |
|00002490| 74 68 65 6e 0d 63 6c 65 | 61 6e 55 53 48 6f 6d 65 |then.cle|anUSHome|
|000024a0| 0d 2d 2d 69 74 20 6d 75 | 73 74 20 62 65 20 74 68 |.--it mu|st be th|
|000024b0| 65 20 55 53 41 20 73 6f | 20 6d 61 6b 65 20 73 75 |e USA so| make su|
|000024c0| 72 65 20 61 6c 6c 20 74 | 68 65 20 6d 61 70 20 73 |re all t|he map s|
|000024d0| 74 75 66 66 20 69 73 20 | 73 68 6f 77 69 6e 67 0d |tuff is |showing.|
|000024e0| 65 6c 73 65 0d 6c 6f 63 | 6b 20 73 63 72 65 65 6e |else.loc|k screen|
|000024f0| 0d 68 69 64 65 20 62 67 | 20 66 69 65 6c 64 20 22 |.hide bg| field "|
|00002500| 51 75 69 7a 20 66 69 65 | 6c 64 22 0d 68 69 64 65 |Quiz fie|ld".hide|
|00002510| 20 62 67 20 62 74 6e 20 | 22 41 62 6f 72 74 22 0d | bg btn |"Abort".|
|00002520| 72 65 70 65 61 74 20 77 | 69 74 68 20 69 20 3d 20 |repeat w|ith i = |
|00002530| 31 20 74 6f 20 34 0d 70 | 75 74 20 22 41 6e 73 77 |1 to 4.p|ut "Answ|
|00002540| 65 72 22 26 69 20 69 6e | 74 6f 20 62 6e 0d 70 75 |er"&i in|to bn.pu|
|00002550| 74 20 22 51 75 65 73 74 | 69 6f 6e 22 26 69 20 69 |t "Quest|ion"&i i|
|00002560| 6e 74 6f 20 66 6e 0d 68 | 69 64 65 20 66 69 65 6c |nto fn.h|ide fiel|
|00002570| 64 20 66 6e 0d 68 69 64 | 65 20 62 67 20 62 75 74 |d fn.hid|e bg but|
|00002580| 74 6f 6e 20 62 6e 0d 65 | 6e 64 20 72 65 70 65 61 |ton bn.e|nd repea|
|00002590| 74 0d 69 66 20 66 6e 61 | 6d 65 20 69 73 20 6e 6f |t.if fna|me is no|
|000025a0| 74 20 65 6d 70 74 79 20 | 74 68 65 6e 20 73 68 6f |t empty |then sho|
|000025b0| 77 20 62 67 20 66 69 65 | 6c 64 20 66 6e 61 6d 65 |w bg fie|ld fname|
|000025c0| 0d 73 68 6f 77 20 77 69 | 6e 64 6f 77 20 22 53 53 |.show wi|ndow "SS|
|000025d0| 4e 61 76 22 0d 75 6e 6c | 6f 63 6b 20 73 63 72 65 |Nav".unl|ock scre|
|000025e0| 65 6e 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 63 6c |en.end i|f.end cl|
|000025f0| 65 61 6e 55 70 0d 0d 0d | 6f 6e 20 64 6f 50 72 69 |eanUp...|on doPri|
|00002600| 6e 74 0d 64 6f 4d 65 6e | 75 20 22 50 72 69 6e 74 |nt.doMen|u "Print|
|00002610| 20 43 61 72 64 22 0d 65 | 6e 64 20 64 6f 50 72 69 | Card".e|nd doPri|
|00002620| 6e 74 0d 0d 6f 6e 20 64 | 6f 45 78 70 6f 72 74 0d |nt..on d|oExport.|
|00002630| 2d 2d 70 75 74 20 22 a4 | 22 20 26 20 74 68 65 20 |--put ".|" & the |
|00002640| 73 68 6f 72 74 20 6e 61 | 6d 65 20 6f 66 20 74 68 |short na|me of th|
|00002650| 69 73 20 63 61 72 64 20 | 69 6e 74 6f 20 6e 6e 0d |is card |into nn.|
|00002660| 73 65 74 20 74 68 65 20 | 75 73 65 72 6c 65 76 65 |set the |userleve|
|00002670| 6c 20 74 6f 20 34 0d 2d | 2d 65 78 70 6f 72 74 20 |l to 4.-|-export |
|00002680| 70 61 69 6e 74 20 74 6f | 20 66 69 6c 65 20 6e 6e |paint to| file nn|
|00002690| 0d 2d 2d 61 6e 73 77 65 | 72 20 22 45 78 70 6f 72 |.--answe|r "Expor|
|000026a0| 74 65 64 20 70 61 69 6e | 74 20 66 69 6c 65 20 22 |ted pain|t file "|
|000026b0| 26 6e 6e 20 77 69 74 68 | 20 22 4f 4b 22 0d 63 68 |&nn with| "OK".ch|
|000026c0| 6f 6f 73 65 20 74 68 65 | 20 70 65 6e 63 69 6c 20 |oose the| pencil |
|000026d0| 74 6f 6f 6c 0d 64 6f 4d | 65 6e 75 20 22 45 78 70 |tool.doM|enu "Exp|
|000026e0| 6f 72 74 20 50 61 69 6e | 74 2e 2e 2e 22 0d 70 6f |ort Pain|t...".po|
|000026f0| 70 55 4c 0d 63 68 6f 6f | 73 65 20 74 68 65 20 62 |pUL.choo|se the b|
|00002700| 72 6f 77 73 65 20 74 6f | 6f 6c 0d 65 6e 64 20 64 |rowse to|ol.end d|
|00002710| 6f 45 78 70 6f 72 74 0d | 0d 6f 6e 20 67 6f 49 6e |oExport.|.on goIn|
|00002720| 66 6f 0d 70 75 74 20 74 | 68 65 20 73 68 6f 72 74 |fo.put t|he short|
|00002730| 20 6e 61 6d 65 20 6f 66 | 20 74 68 69 73 20 63 61 | name of| this ca|
|00002740| 72 64 20 69 6e 74 6f 20 | 6e 6d 65 0d 70 75 74 20 |rd into |nme.put |
|00002750| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 74 68 69 73 |the name| of this|
|00002760| 20 62 67 20 69 6e 74 6f | 20 74 62 0d 69 66 20 74 | bg into| tb.if t|
|00002770| 62 20 63 6f 6e 74 61 69 | 6e 73 20 22 52 65 67 69 |b contai|ns "Regi|
|00002780| 6f 6e 22 20 74 68 65 6e | 0d 62 65 65 70 0d 65 78 |on" then|.beep.ex|
|00002790| 69 74 20 67 6f 49 6e 66 | 6f 0d 65 6c 73 65 0d 70 |it goInf|o.else.p|
|000027a0| 75 74 20 22 49 2d 22 20 | 26 20 63 68 61 72 20 33 |ut "I-" |& char 3|
|000027b0| 20 74 6f 20 34 20 6f 66 | 20 6e 6d 65 20 69 6e 74 | to 4 of| nme int|
|000027c0| 6f 20 6e 6d 65 0d 76 69 | 73 75 61 6c 20 76 65 6e |o nme.vi|sual ven|
|000027d0| 65 74 69 61 6e 20 62 6c | 69 6e 64 73 0d 67 6f 20 |etian bl|inds.go |
|000027e0| 63 61 72 64 20 6e 6d 65 | 20 6f 66 20 73 74 61 63 |card nme| of stac|
|000027f0| 6b 20 22 a4 43 6f 6e 74 | 72 6f 6c 22 0d 65 6e 64 |k ".Cont|rol".end|
|00002800| 20 69 66 0d 65 6e 64 20 | 67 6f 49 6e 66 6f 0d 0d | if.end |goInfo..|
|00002810| 6f 6e 20 67 6f 43 6f 6e | 74 0d 70 75 74 20 74 68 |on goCon|t.put th|
|00002820| 65 20 73 68 6f 72 74 20 | 6e 61 6d 65 20 6f 66 20 |e short |name of |
|00002830| 74 68 69 73 20 63 61 72 | 64 20 69 6e 74 6f 20 6e |this car|d into n|
|00002840| 6d 65 0d 70 75 74 20 22 | 58 2d 22 20 26 20 63 68 |me.put "|X-" & ch|
|00002850| 61 72 20 33 20 74 6f 20 | 34 20 6f 66 20 6e 6d 65 |ar 3 to |4 of nme|
|00002860| 20 69 6e 74 6f 20 6e 6d | 65 0d 76 69 73 75 61 6c | into nm|e.visual|
|00002870| 20 76 65 6e 65 74 69 61 | 6e 20 62 6c 69 6e 64 73 | venetia|n blinds|
|00002880| 0d 69 66 20 74 68 65 72 | 65 20 69 73 20 61 20 73 |.if ther|e is a s|
|00002890| 74 61 63 6b 20 22 a4 43 | 6f 6e 74 6f 75 72 73 22 |tack ".C|ontours"|
|000028a0| 20 74 68 65 6e 0d 67 6f | 20 63 61 72 64 20 6e 6d | then.go| card nm|
|000028b0| 65 20 6f 66 20 73 74 61 | 63 6b 20 22 a4 43 6f 6e |e of sta|ck ".Con|
|000028c0| 74 6f 75 72 73 22 0d 65 | 6c 73 65 0d 61 6e 73 77 |tours".e|lse.answ|
|000028d0| 65 72 20 22 54 68 65 20 | 43 6f 6e 74 6f 75 72 73 |er "The |Contours|
|000028e0| 20 44 61 74 61 20 69 73 | 20 61 76 61 69 6c 61 62 | Data is| availab|
|000028f0| 6c 65 20 69 6e 20 74 68 | 65 20 52 65 67 69 73 74 |le in th|e Regist|
|00002900| 65 72 65 64 20 56 65 72 | 73 69 6f 6e 2e 22 0d 65 |ered Ver|sion.".e|
|00002910| 6e 64 20 69 66 0d 65 6e | 64 20 67 6f 43 6f 6e 74 |nd if.en|d goCont|
|00002920| 0d 0d 6f 6e 20 67 6f 43 | 69 74 0d 70 75 74 20 74 |..on goC|it.put t|
|00002930| 68 65 20 73 68 6f 72 74 | 20 6e 61 6d 65 20 6f 66 |he short| name of|
|00002940| 20 74 68 69 73 20 63 61 | 72 64 20 69 6e 74 6f 20 | this ca|rd into |
|00002950| 6e 6d 65 0d 70 75 74 20 | 22 43 2d 22 20 26 20 63 |nme.put |"C-" & c|
|00002960| 68 61 72 20 33 20 74 6f | 20 34 20 6f 66 20 6e 6d |har 3 to| 4 of nm|
|00002970| 65 20 69 6e 74 6f 20 6e | 6d 65 0d 76 69 73 75 61 |e into n|me.visua|
|00002980| 6c 20 76 65 6e 65 74 69 | 61 6e 20 62 6c 69 6e 64 |l veneti|an blind|
|00002990| 73 0d 69 66 20 74 68 65 | 72 65 20 69 73 20 61 20 |s.if the|re is a |
|000029a0| 73 74 61 63 6b 20 22 a4 | 43 69 74 69 65 73 22 20 |stack ".|Cities" |
|000029b0| 74 68 65 6e 0d 67 6f 20 | 63 61 72 64 20 6e 6d 65 |then.go |card nme|
|000029c0| 20 6f 66 20 73 74 61 63 | 6b 20 22 a4 43 69 74 69 | of stac|k ".Citi|
|000029d0| 65 73 22 0d 65 6c 73 65 | 0d 61 6e 73 77 65 72 20 |es".else|.answer |
|000029e0| 22 54 68 65 20 43 69 74 | 69 65 73 20 44 61 74 61 |"The Cit|ies Data|
|000029f0| 20 69 73 20 61 76 61 69 | 6c 61 62 6c 65 20 69 6e | is avai|lable in|
|00002a00| 20 74 68 65 20 52 65 67 | 69 73 74 65 72 65 64 20 | the Reg|istered |
|00002a10| 56 65 72 73 69 6f 6e 2e | 22 0d 65 6e 64 20 69 66 |Version.|".end if|
|00002a20| 0d 65 6e 64 20 67 6f 43 | 69 74 0d 0d 6f 6e 20 67 |.end goC|it..on g|
|00002a30| 6f 52 65 67 0d 2d 2d 74 | 68 69 73 20 69 73 20 64 |oReg.--t|his is d|
|00002a40| 69 66 66 65 72 65 6e 74 | 20 69 6e 20 63 6f 6e 74 |ifferent| in cont|
|00002a50| 72 6f 6c 20 73 74 61 63 | 6b 2c 20 73 6f 20 69 74 |rol stac|k, so it|
|00002a60| 20 68 61 73 20 69 74 73 | 20 6f 77 6e 0d 67 65 74 | has its| own.get|
|00002a70| 20 62 67 20 66 6c 64 20 | 22 52 65 67 69 6f 6e 22 | bg fld |"Region"|
|00002a80| 0d 70 75 74 20 74 68 65 | 20 73 68 6f 72 74 20 6e |.put the| short n|
|00002a90| 61 6d 65 20 6f 66 20 74 | 68 69 73 20 63 61 72 64 |ame of t|his card|
|00002aa0| 20 69 6e 74 6f 20 73 6e | 0d 70 75 74 20 28 63 68 | into sn|.put (ch|
|00002ab0| 61 72 20 31 20 74 6f 20 | 32 20 6f 66 20 73 6e 29 |ar 1 to |2 of sn)|
|00002ac0| 20 26 20 69 74 20 69 6e | 74 6f 20 63 72 64 0d 76 | & it in|to crd.v|
|00002ad0| 69 73 75 61 6c 20 69 72 | 69 73 20 63 6c 6f 73 65 |isual ir|is close|
|00002ae0| 20 73 6c 6f 77 0d 67 6f | 20 63 64 20 63 72 64 0d | slow.go| cd crd.|
|00002af0| 65 6e 64 20 67 6f 52 65 | 67 0d 0d 6f 6e 20 67 6f |end goRe|g..on go|
|00002b00| 55 53 41 0d 69 66 20 74 | 68 65 20 73 68 6f 72 74 |USA.if t|he short|
|00002b10| 20 6e 61 6d 65 20 6f 66 | 20 74 68 69 73 20 62 67 | name of| this bg|
|00002b20| 20 63 6f 6e 74 61 69 6e | 73 20 22 52 65 67 69 6f | contain|s "Regio|
|00002b30| 6e 22 20 74 68 65 6e 0d | 70 75 74 20 74 68 65 20 |n" then.|put the |
|00002b40| 73 68 6f 72 74 20 6e 61 | 6d 65 20 6f 66 20 74 68 |short na|me of th|
|00002b50| 69 73 20 63 64 20 69 6e | 74 6f 20 74 63 6e 0d 70 |is cd in|to tcn.p|
|00002b60| 75 74 20 70 72 65 66 69 | 78 28 74 63 6e 29 20 26 |ut prefi|x(tcn) &|
|00002b70| 20 22 55 53 22 20 69 6e | 74 6f 20 7a 6f 0d 76 69 | "US" in|to zo.vi|
|00002b80| 73 75 61 6c 20 69 72 69 | 73 20 63 6c 6f 73 65 20 |sual iri|s close |
|00002b90| 73 6c 6f 77 0d 67 6f 20 | 63 64 20 7a 6f 0d 65 6c |slow.go |cd zo.el|
|00002ba0| 73 65 0d 67 6f 20 63 61 | 72 64 20 22 55 53 20 68 |se.go ca|rd "US h|
|00002bb0| 6f 6d 65 22 6f 66 20 73 | 74 61 63 6b 20 22 a4 43 |ome"of s|tack ".C|
|00002bc0| 6f 6e 74 72 6f 6c 22 0d | 65 6e 64 20 69 66 0d 65 |ontrol".|end if.e|
|00002bd0| 6e 64 20 67 6f 55 53 41 | 0d 0d 6f 6e 20 67 6f 43 |nd goUSA|..on goC|
|00002be0| 6f 6d 70 20 6e 20 20 20 | 2d 2d 63 6f 6d 70 61 73 |omp n   |--compas|
|00002bf0| 73 20 68 61 6e 64 6c 65 | 72 0d 70 75 74 20 69 74 |s handle|r.put it|
|00002c00| 65 6d 20 6e 20 6f 66 20 | 62 67 20 66 6c 64 20 22 |em n of |bg fld "|
|00002c10| 43 6f 6d 70 64 69 72 73 | 22 20 69 6e 74 6f 20 70 |Compdirs|" into p|
|00002c20| 6c 61 63 65 0d 69 66 20 | 70 6c 61 63 65 20 69 73 |lace.if |place is|
|00002c30| 20 6e 6f 74 20 65 6d 70 | 74 79 20 74 68 65 6e 0d | not emp|ty then.|
|00002c40| 67 6f 20 63 64 20 70 6c | 61 63 65 0d 65 6c 73 65 |go cd pl|ace.else|
|00002c50| 0d 62 65 65 70 0d 65 6e | 64 20 69 66 0d 65 6e 64 |.beep.en|d if.end|
|00002c60| 20 67 6f 43 6f 6d 70 0d | 0d 6f 6e 20 67 6f 54 6f | goComp.|.on goTo|
|00002c70| 70 0d 70 75 74 20 74 68 | 65 20 73 68 6f 72 74 20 |p.put th|e short |
|00002c80| 6e 61 6d 65 20 6f 66 20 | 74 68 69 73 20 63 61 72 |name of |this car|
|00002c90| 64 20 69 6e 74 6f 20 6e | 6d 65 0d 70 75 74 20 22 |d into n|me.put "|
|00002ca0| 54 2d 22 20 26 20 63 68 | 61 72 20 33 20 74 6f 20 |T-" & ch|ar 3 to |
|00002cb0| 34 20 6f 66 20 6e 6d 65 | 20 69 6e 74 6f 20 6e 6d |4 of nme| into nm|
|00002cc0| 65 0d 76 69 73 75 61 6c | 20 76 65 6e 65 74 69 61 |e.visual| venetia|
|00002cd0| 6e 20 62 6c 69 6e 64 73 | 0d 69 66 20 74 68 65 72 |n blinds|.if ther|
|00002ce0| 65 20 69 73 20 61 20 73 | 74 61 63 6b 20 22 a4 54 |e is a s|tack ".T|
|00002cf0| 6f 70 6f 67 72 61 70 68 | 79 22 20 74 68 65 6e 0d |opograph|y" then.|
|00002d00| 67 6f 20 63 61 72 64 20 | 6e 6d 65 20 6f 66 20 73 |go card |nme of s|
|00002d10| 74 61 63 6b 20 22 a4 54 | 6f 70 6f 67 72 61 70 68 |tack ".T|opograph|
|00002d20| 79 22 0d 65 6c 73 65 0d | 61 6e 73 77 65 72 20 22 |y".else.|answer "|
|00002d30| 54 68 65 20 54 6f 70 6f | 67 72 61 70 68 69 63 61 |The Topo|graphica|
|00002d40| 6c 20 44 61 74 61 20 69 | 73 20 61 76 61 69 6c 61 |l Data i|s availa|
|00002d50| 62 6c 65 20 69 6e 20 74 | 68 65 20 52 65 67 69 73 |ble in t|he Regis|
|00002d60| 74 65 72 65 64 20 56 65 | 72 73 69 6f 6e 2e 22 0d |tered Ve|rsion.".|
|00002d70| 65 6e 64 20 69 66 0d 65 | 6e 64 20 67 6f 54 6f 70 |end if.e|nd goTop|
|00002d80| 0d 0d 6f 6e 20 64 6f 4c | 6f 63 61 74 65 20 2d 2d |..on doL|ocate --|
|00002d90| 20 6c 6f 63 61 74 65 73 | 20 61 6e 20 69 74 65 6d | locates| an item|
|00002da0| 20 69 66 20 70 6f 73 73 | 69 62 6c 65 0d 67 6c 6f | if poss|ible.glo|
|00002db0| 62 61 6c 20 70 6c 61 63 | 65 6e 61 6d 65 0d 67 6c |bal plac|ename.gl|
|00002dc0| 6f 62 61 6c 20 6d 61 70 | 6c 69 73 74 0d 61 73 6b |obal map|list.ask|
|00002dd0| 20 22 50 6c 61 63 65 20 | 6e 61 6d 65 3f 22 20 77 | "Place |name?" w|
|00002de0| 69 74 68 20 70 6c 61 63 | 65 6e 61 6d 65 0d 69 66 |ith plac|ename.if|
|00002df0| 20 74 68 65 20 72 65 73 | 75 6c 74 20 69 73 20 22 | the res|ult is "|
|00002e00| 43 61 6e 63 65 6c 22 20 | 74 68 65 6e 20 65 78 69 |Cancel" |then exi|
|00002e10| 74 20 64 6f 4c 6f 63 61 | 74 65 0d 70 75 74 20 69 |t doLoca|te.put i|
|00002e20| 74 20 69 6e 74 6f 20 70 | 6c 61 63 65 6e 61 6d 65 |t into p|lacename|
|00002e30| 0d 6c 6f 63 6b 20 73 63 | 72 65 65 6e 0d 73 65 74 |.lock sc|reen.set|
|00002e40| 20 74 68 65 20 63 75 72 | 73 6f 72 20 74 6f 20 62 | the cur|sor to b|
|00002e50| 75 73 79 0d 70 75 74 20 | 62 69 6e 73 65 61 72 63 |usy.put |binsearc|
|00002e60| 68 28 70 6c 61 63 65 6e | 61 6d 65 29 20 69 6e 74 |h(placen|ame) int|
|00002e70| 6f 20 61 6e 73 77 65 72 | 0d 69 66 20 61 6e 73 77 |o answer|.if answ|
|00002e80| 65 72 20 69 73 20 65 6d | 70 74 79 20 74 68 65 6e |er is em|pty then|
|00002e90| 0d 2d 2d 64 6f 20 61 20 | 67 65 6e 65 72 61 6c 20 |.--do a |general |
|00002ea0| 66 69 6e 64 0d 66 69 6e | 64 20 63 68 61 72 73 20 |find.fin|d chars |
|00002eb0| 70 6c 61 63 65 6e 61 6d | 65 0d 75 6e 6c 6f 63 6b |placenam|e.unlock|
|00002ec0| 20 73 63 72 65 65 6e 0d | 2d 2d 61 6e 73 77 65 72 | screen.|--answer|
|00002ed0| 20 22 4e 6f 74 20 46 6f | 75 6e 64 22 20 77 69 74 | "Not Fo|und" wit|
|00002ee0| 68 20 22 4f 4b 22 0d 65 | 78 69 74 20 64 6f 4c 6f |h "OK".e|xit doLo|
|00002ef0| 63 61 74 65 0d 65 6e 64 | 20 69 66 0d 75 6e 6c 6f |cate.end| if.unlo|
|00002f00| 63 6b 20 73 63 72 65 65 | 6e 0d 70 75 74 20 69 74 |ck scree|n.put it|
|00002f10| 65 6d 20 31 20 6f 66 20 | 61 6e 73 77 65 72 20 69 |em 1 of |answer i|
|00002f20| 6e 74 6f 20 63 72 64 0d | 70 75 74 20 69 74 65 6d |nto crd.|put item|
|00002f30| 20 32 20 6f 66 20 61 6e | 73 77 65 72 20 69 6e 74 | 2 of an|swer int|
|00002f40| 6f 20 73 74 6b 0d 70 75 | 74 20 69 74 65 6d 20 33 |o stk.pu|t item 3|
|00002f50| 20 6f 66 20 61 6e 73 77 | 65 72 20 69 6e 74 6f 20 | of answ|er into |
|00002f60| 78 0d 70 75 74 20 69 74 | 65 6d 20 34 20 6f 66 20 |x.put it|em 4 of |
|00002f70| 61 6e 73 77 65 72 20 69 | 6e 74 6f 20 79 0d 69 66 |answer i|nto y.if|
|00002f80| 20 74 68 65 72 65 20 69 | 73 20 61 20 73 74 61 63 | there i|s a stac|
|00002f90| 6b 20 73 74 6b 20 74 68 | 65 6e 0d 67 6f 20 63 64 |k stk th|en.go cd|
|00002fa0| 20 63 72 64 20 6f 66 20 | 73 74 61 63 6b 20 73 74 | crd of |stack st|
|00002fb0| 6b 0d 69 66 20 74 68 65 | 20 72 65 73 75 6c 74 20 |k.if the| result |
|00002fc0| 69 73 20 6e 6f 74 20 65 | 6d 70 74 79 20 74 68 65 |is not e|mpty the|
|00002fd0| 6e 0d 61 6e 73 77 65 72 | 20 22 43 61 72 64 20 22 |n.answer| "Card "|
|00002fe0| 26 63 72 64 26 22 20 69 | 73 20 6d 69 73 73 69 6e |&crd&" i|s missin|
|00002ff0| 67 2e 22 20 77 69 74 68 | 20 22 57 68 61 74 3f 22 |g." with| "What?"|
|00003000| 20 6f 72 20 22 49 20 6b | 6e 6f 77 22 0d 65 78 69 | or "I k|now".exi|
|00003010| 74 20 64 6f 4c 6f 63 61 | 74 65 0d 65 6e 64 20 69 |t doLoca|te.end i|
|00003020| 66 0d 73 65 74 20 74 68 | 65 20 63 75 72 73 6f 72 |f.set th|e cursor|
|00003030| 20 74 6f 20 68 61 6e 64 | 0d 6d 61 72 6b 65 72 20 | to hand|.marker |
|00003040| 78 2c 79 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 64 |x,y.end |if.end d|
|00003050| 6f 4c 6f 63 61 74 65 0d | 0d 0d 66 75 6e 63 74 69 |oLocate.|..functi|
|00003060| 6f 6e 20 62 69 6e 73 65 | 61 72 63 68 20 70 6c 61 |on binse|arch pla|
|00003070| 63 65 0d 2d 2d 66 69 6e | 64 73 20 70 6c 61 63 65 |ce.--fin|ds place|
|00003080| 20 69 6e 20 73 6f 72 74 | 65 64 20 6c 69 73 74 20 | in sort|ed list |
|00003090| 62 79 20 61 6c 70 68 61 | 0d 67 6c 6f 62 61 6c 20 |by alpha|.global |
|000030a0| 6d 61 70 6c 69 73 74 2c | 6d 70 2c 63 6f 6f 72 64 |maplist,|mp,coord|
|000030b0| 6c 69 73 74 0d 6c 6f 63 | 6b 20 73 63 72 65 65 6e |list.loc|k screen|
|000030c0| 0d 70 75 73 68 20 63 64 | 0d 67 6f 20 62 67 20 22 |.push cd|.go bg "|
|000030d0| 69 6e 64 65 78 22 20 6f | 66 20 73 74 61 63 6b 20 |index" o|f stack |
|000030e0| 22 a4 43 6f 6e 74 72 6f | 6c 22 0d 66 69 6e 64 20 |".Contro|l".find |
|000030f0| 73 74 72 69 6e 67 20 70 | 6c 61 63 65 20 69 6e 20 |string p|lace in |
|00003100| 66 6c 64 20 22 64 65 78 | 22 0d 69 66 20 74 68 65 |fld "dex|".if the|
|00003110| 20 66 6f 75 6e 64 6c 69 | 6e 65 20 69 73 20 65 6d | foundli|ne is em|
|00003120| 70 74 79 20 74 68 65 6e | 0d 62 65 65 70 0d 70 6f |pty then|.beep.po|
|00003130| 70 20 63 64 0d 75 6e 6c | 6f 63 6b 20 73 63 72 65 |p cd.unl|ock scre|
|00003140| 65 6e 0d 65 78 69 74 20 | 62 69 6e 73 65 61 72 63 |en.exit |binsearc|
|00003150| 68 0d 65 6c 73 65 0d 70 | 75 74 20 77 6f 72 64 20 |h.else.p|ut word |
|00003160| 32 20 6f 66 20 74 68 65 | 20 66 6f 75 6e 64 6c 69 |2 of the| foundli|
|00003170| 6e 65 20 69 6e 74 6f 20 | 6c 6e 6f 0d 70 75 74 20 |ne into |lno.put |
|00003180| 69 74 65 6d 20 32 20 6f | 66 20 6c 69 6e 65 20 6c |item 2 o|f line l|
|00003190| 6e 6f 20 6f 66 20 66 6c | 64 20 22 64 65 78 22 20 |no of fl|d "dex" |
|000031a0| 69 6e 74 6f 20 6d 61 70 | 6c 69 73 74 0d 70 75 74 |into map|list.put|
|000031b0| 20 69 74 65 6d 20 33 20 | 6f 66 20 6c 69 6e 65 20 | item 3 |of line |
|000031c0| 6c 6e 6f 20 6f 66 20 66 | 6c 64 20 22 64 65 78 22 |lno of f|ld "dex"|
|000031d0| 20 69 6e 74 6f 20 63 6f | 6f 72 64 6c 69 73 74 0d | into co|ordlist.|
|000031e0| 70 75 74 20 32 20 69 6e | 74 6f 20 6d 70 0d 70 75 |put 2 in|to mp.pu|
|000031f0| 74 20 77 6f 72 64 20 31 | 20 6f 66 20 6d 61 70 6c |t word 1| of mapl|
|00003200| 69 73 74 20 69 6e 74 6f | 20 63 72 64 0d 70 6f 70 |ist into| crd.pop|
|00003210| 20 63 64 0d 75 6e 6c 6f | 63 6b 20 73 63 72 65 65 | cd.unlo|ck scree|
|00003220| 6e 0d 65 6e 64 20 69 66 | 0d 70 75 74 20 77 6f 72 |n.end if|.put wor|
|00003230| 64 20 31 20 6f 66 20 63 | 6f 6f 72 64 6c 69 73 74 |d 1 of c|oordlist|
|00003240| 20 69 6e 74 6f 20 78 0d | 70 75 74 20 77 6f 72 64 | into x.|put word|
|00003250| 20 32 20 6f 66 20 63 6f | 6f 72 64 6c 69 73 74 20 | 2 of co|ordlist |
|00003260| 69 6e 74 6f 20 79 0d 70 | 75 74 20 63 68 61 72 20 |into y.p|ut char |
|00003270| 31 20 6f 66 20 63 72 64 | 20 69 6e 74 6f 20 63 0d |1 of crd| into c.|
|00003280| 70 75 74 20 73 74 6b 6e | 28 63 29 20 69 6e 74 6f |put stkn|(c) into|
|00003290| 20 73 74 6b 0d 72 65 74 | 75 72 6e 28 20 63 72 64 | stk.ret|urn( crd|
|000032a0| 26 22 2c 22 26 73 74 6b | 26 22 2c 22 26 78 26 22 |&","&stk|&","&x&"|
|000032b0| 2c 22 26 79 29 0d 65 6e | 64 20 62 69 6e 73 65 61 |,"&y).en|d binsea|
|000032c0| 72 63 68 0d 0d 0d 0d 6f | 6e 20 64 6f 46 4e 65 78 |rch....o|n doFNex|
|000032d0| 74 20 20 2d 2d 66 69 6e | 64 73 20 74 68 65 20 6e |t  --fin|ds the n|
|000032e0| 65 78 74 20 6c 6f 63 61 | 74 69 6f 6e 20 6f 66 20 |ext loca|tion of |
|000032f0| 70 6c 61 63 65 4e 61 6d | 65 0d 67 6c 6f 62 61 6c |placeNam|e.global|
|00003300| 20 70 6c 61 63 65 4e 61 | 6d 65 2c 6d 61 70 6c 69 | placeNa|me,mapli|
|00003310| 73 74 2c 6d 70 2c 63 6f | 6f 72 64 6c 69 73 74 0d |st,mp,co|ordlist.|
|00003320| 73 65 74 20 74 68 65 20 | 63 75 72 73 6f 72 20 74 |set the |cursor t|
|00003330| 6f 20 62 75 73 79 0d 69 | 66 20 70 6c 61 63 65 6e |o busy.i|f placen|
|00003340| 61 6d 65 20 69 73 20 65 | 6d 70 74 79 20 74 68 65 |ame is e|mpty the|
|00003350| 6e 0d 62 65 65 70 0d 65 | 78 69 74 20 64 6f 46 4e |n.beep.e|xit doFN|
|00003360| 65 78 74 0d 65 6e 64 20 | 69 66 0d 69 66 20 6d 61 |ext.end |if.if ma|
|00003370| 70 6c 69 73 74 20 69 73 | 20 65 6d 70 74 79 20 74 |plist is| empty t|
|00003380| 68 65 6e 0d 62 65 65 70 | 0d 65 78 69 74 20 64 6f |hen.beep|.exit do|
|00003390| 46 4e 65 78 74 0d 65 6e | 64 20 69 66 0d 70 75 74 |FNext.en|d if.put|
|000033a0| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 77 | the num|ber of w|
|000033b0| 6f 72 64 73 20 6f 66 20 | 6d 61 70 6c 69 73 74 20 |ords of |maplist |
|000033c0| 69 6e 74 6f 20 6e 0d 69 | 66 20 6d 70 3e 6e 20 74 |into n.i|f mp>n t|
|000033d0| 68 65 6e 0d 62 65 65 70 | 0d 65 78 69 74 20 64 6f |hen.beep|.exit do|
|000033e0| 46 4e 65 78 74 0d 65 6e | 64 20 69 66 0d 70 75 74 |FNext.en|d if.put|
|000033f0| 20 77 6f 72 64 20 6d 70 | 20 6f 66 20 6d 61 70 6c | word mp| of mapl|
|00003400| 69 73 74 20 69 6e 74 6f | 20 63 72 64 0d 70 75 74 |ist into| crd.put|
|00003410| 20 63 68 61 72 20 31 20 | 6f 66 20 63 72 64 20 69 | char 1 |of crd i|
|00003420| 6e 74 6f 20 63 0d 70 75 | 74 20 73 74 6b 6e 28 63 |nto c.pu|t stkn(c|
|00003430| 29 20 69 6e 74 6f 20 73 | 74 6b 0d 69 66 20 74 68 |) into s|tk.if th|
|00003440| 65 72 65 20 69 73 20 61 | 20 73 74 61 63 6b 20 73 |ere is a| stack s|
|00003450| 74 6b 20 74 68 65 6e 0d | 67 6f 20 63 64 20 63 72 |tk then.|go cd cr|
|00003460| 64 20 6f 66 20 73 74 61 | 63 6b 20 73 74 6b 0d 70 |d of sta|ck stk.p|
|00003470| 75 74 20 77 6f 72 64 20 | 32 2a 6d 70 2d 31 20 6f |ut word |2*mp-1 o|
|00003480| 66 20 63 6f 6f 72 64 6c | 69 73 74 20 69 6e 74 6f |f coordl|ist into|
|00003490| 20 78 0d 70 75 74 20 77 | 6f 72 64 20 32 2a 6d 70 | x.put w|ord 2*mp|
|000034a0| 20 6f 66 20 63 6f 6f 72 | 64 6c 69 73 74 20 69 6e | of coor|dlist in|
|000034b0| 74 6f 20 79 0d 61 64 64 | 20 31 20 74 6f 20 6d 70 |to y.add| 1 to mp|
|000034c0| 0d 73 65 74 20 74 68 65 | 20 63 75 72 73 6f 72 20 |.set the| cursor |
|000034d0| 74 6f 20 68 61 6e 64 0d | 6d 61 72 6b 65 72 20 78 |to hand.|marker x|
|000034e0| 2c 79 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 64 6f |,y.end i|f.end do|
|000034f0| 46 4e 65 78 74 0d 0d 6f | 6e 20 6d 61 72 6b 65 72 |FNext..o|n marker|
|00003500| 20 78 2c 79 0d 73 65 74 | 20 74 68 65 20 75 73 65 | x,y.set| the use|
|00003510| 72 6c 65 76 65 6c 20 74 | 6f 20 35 0d 6c 6f 63 6b |rlevel t|o 5.lock|
|00003520| 20 73 63 72 65 65 6e 0d | 64 6f 4d 65 6e 75 20 22 | screen.|doMenu "|
|00003530| 4e 65 77 20 42 75 74 74 | 6f 6e 22 0d 73 65 74 20 |New Butt|on".set |
|00003540| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 62 74 6e 20 |the name| of btn |
|00003550| 22 4e 65 77 20 42 75 74 | 74 6f 6e 22 20 74 6f 20 |"New But|ton" to |
|00003560| 22 66 6c 61 73 68 22 0d | 73 65 74 20 74 68 65 20 |"flash".|set the |
|00003570| 72 65 63 74 20 6f 66 20 | 62 74 6e 20 22 66 6c 61 |rect of |btn "fla|
|00003580| 73 68 22 20 74 6f 20 30 | 2c 30 2c 31 35 2c 31 35 |sh" to 0|,0,15,15|
|00003590| 0d 73 65 74 20 74 68 65 | 20 73 74 79 6c 65 20 6f |.set the| style o|
|000035a0| 66 20 62 74 6e 20 22 66 | 6c 61 73 68 22 20 74 6f |f btn "f|lash" to|
|000035b0| 20 74 72 61 6e 73 70 61 | 72 65 6e 74 0d 73 65 74 | transpa|rent.set|
|000035c0| 20 74 68 65 20 73 68 6f | 77 6e 61 6d 65 20 6f 66 | the sho|wname of|
|000035d0| 20 62 74 6e 20 22 66 6c | 61 73 68 22 20 74 6f 20 | btn "fl|ash" to |
|000035e0| 66 61 6c 73 65 0d 73 65 | 74 20 74 68 65 20 61 75 |false.se|t the au|
|000035f0| 74 6f 68 69 6c 69 74 65 | 20 6f 66 20 62 74 6e 20 |tohilite| of btn |
|00003600| 22 66 6c 61 73 68 22 20 | 74 6f 20 66 61 6c 73 65 |"flash" |to false|
|00003610| 0d 73 65 74 20 74 68 65 | 20 69 63 6f 6e 20 6f 66 |.set the| icon of|
|00003620| 20 62 74 6e 20 22 66 6c | 61 73 68 22 20 74 6f 20 | btn "fl|ash" to |
|00003630| 31 30 31 38 0d 63 68 6f | 6f 73 65 20 62 72 6f 77 |1018.cho|ose brow|
|00003640| 73 65 20 74 6f 6f 6c 0d | 70 6f 70 55 4c 0d 73 68 |se tool.|popUL.sh|
|00003650| 6f 77 20 63 64 20 62 74 | 6e 20 22 66 6c 61 73 68 |ow cd bt|n "flash|
|00003660| 22 20 61 74 20 78 2c 79 | 0d 75 6e 6c 6f 63 6b 20 |" at x,y|.unlock |
|00003670| 73 63 72 65 65 6e 0d 73 | 65 74 20 74 68 65 20 6c |screen.s|et the l|
|00003680| 6f 63 6b 6d 65 73 73 61 | 67 65 73 20 74 6f 20 74 |ockmessa|ges to t|
|00003690| 72 75 65 0d 72 65 70 65 | 61 74 20 75 6e 74 69 6c |rue.repe|at until|
|000036a0| 20 74 68 65 20 6d 6f 75 | 73 65 63 6c 69 63 6b 0d | the mou|seclick.|
|000036b0| 73 65 74 20 74 68 65 20 | 68 69 6c 69 74 65 20 6f |set the |hilite o|
|000036c0| 66 20 62 74 6e 20 22 66 | 6c 61 73 68 22 20 74 6f |f btn "f|lash" to|
|000036d0| c2 0d 6e 6f 74 20 74 68 | 65 20 68 69 6c 69 74 65 |..not th|e hilite|
|000036e0| 20 6f 66 20 62 74 6e 20 | 22 66 6c 61 73 68 22 0d | of btn |"flash".|
|000036f0| 77 61 69 74 20 31 30 0d | 65 6e 64 20 72 65 70 65 |wait 10.|end repe|
|00003700| 61 74 0d 73 65 74 20 74 | 68 65 20 6c 6f 63 6b 6d |at.set t|he lockm|
|00003710| 65 73 73 61 67 65 73 20 | 74 6f 20 66 61 6c 73 65 |essages |to false|
|00003720| 0d 6c 6f 63 6b 20 73 63 | 72 65 65 6e 0d 73 65 74 |.lock sc|reen.set|
|00003730| 20 74 68 65 20 75 73 65 | 72 6c 65 76 65 6c 20 74 | the use|rlevel t|
|00003740| 6f 20 35 0d 63 68 6f 6f | 73 65 20 62 75 74 74 6f |o 5.choo|se butto|
|00003750| 6e 20 74 6f 6f 6c 0d 73 | 65 6c 65 63 74 20 62 74 |n tool.s|elect bt|
|00003760| 6e 20 22 66 6c 61 73 68 | 22 0d 64 6f 6d 65 6e 75 |n "flash|".domenu|
|00003770| 20 22 43 75 74 20 42 75 | 74 74 6f 6e 22 0d 63 68 | "Cut Bu|tton".ch|
|00003780| 6f 6f 73 65 20 62 72 6f | 77 73 65 20 74 6f 6f 6c |oose bro|wse tool|
|00003790| 0d 70 6f 70 55 4c 0d 65 | 6e 64 20 6d 61 72 6b 65 |.popUL.e|nd marke|
|000037a0| 72 0d 0d 0d 0d 0d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |r.....--|-------.|
|000037b0| 0d 2d 2d 68 61 6e 64 6c | 65 72 20 66 6f 72 20 61 |.--handl|er for a|
|000037c0| 64 6a 61 63 65 6e 74 20 | 73 74 61 74 65 20 62 75 |djacent |state bu|
|000037d0| 74 74 6f 6e 73 0d 2d 2d | 74 68 65 73 65 20 62 75 |ttons.--|these bu|
|000037e0| 74 74 6f 6e 73 20 68 61 | 76 65 20 6e 6f 20 73 63 |ttons ha|ve no sc|
|000037f0| 72 69 70 74 73 20 73 6f | 20 74 68 65 79 20 66 61 |ripts so| they fa|
|00003800| 6c 6c 20 74 68 72 6f 75 | 67 68 20 74 6f 20 68 65 |ll throu|gh to he|
|00003810| 72 65 0d 6f 6e 20 6d 6f | 75 73 65 55 70 0d 70 75 |re.on mo|useUp.pu|
|00003820| 74 20 67 65 74 45 66 66 | 65 63 74 20 28 29 20 69 |t getEff|ect () i|
|00003830| 6e 74 6f 20 76 69 73 65 | 66 20 20 2d 2d 62 61 73 |nto vise|f  --bas|
|00003840| 65 73 20 74 68 69 73 20 | 6f 6e 20 74 68 65 20 63 |es this |on the c|
|00003850| 6c 69 63 6b 6c 6f 63 0d | 70 75 74 20 63 68 61 72 |lickloc.|put char|
|00003860| 20 32 20 74 6f 20 33 20 | 6f 66 20 77 6f 72 64 20 | 2 to 3 |of word |
|00003870| 33 20 6f 66 20 74 68 65 | 20 74 61 72 67 65 74 20 |3 of the| target |
|00003880| 69 6e 74 6f 20 78 6e 0d | 69 66 20 78 6e 20 69 73 |into xn.|if xn is|
|00003890| 20 22 4f 4d 22 20 74 68 | 65 6e 0d 70 6f 70 20 63 | "OM" th|en.pop c|
|000038a0| 64 0d 65 78 69 74 20 6d | 6f 75 73 65 55 70 0d 65 |d.exit m|ouseUp.e|
|000038b0| 6e 64 20 69 66 0d 67 65 | 74 20 74 68 65 20 73 68 |nd if.ge|t the sh|
|000038c0| 6f 72 74 20 6e 61 6d 65 | 20 6f 66 20 74 68 69 73 |ort name| of this|
|000038d0| 20 63 64 0d 70 75 74 20 | 63 68 61 72 20 31 20 74 | cd.put |char 1 t|
|000038e0| 6f 20 32 20 6f 66 20 69 | 74 20 26 20 78 6e 20 69 |o 2 of i|t & xn i|
|000038f0| 6e 74 6f 20 78 6e 0d 76 | 69 73 75 61 6c 20 76 69 |nto xn.v|isual vi|
|00003900| 73 65 66 0d 67 6f 20 63 | 64 20 78 6e 61 6d 65 0d |sef.go c|d xname.|
|00003910| 65 6e 64 20 6d 6f 75 73 | 65 55 70 0d 0d 0d 66 75 |end mous|eUp...fu|
|00003920| 6e 63 74 69 6f 6e 20 67 | 65 74 45 66 66 65 63 74 |nction g|etEffect|
|00003930| 20 20 2d 2d 66 6f 72 20 | 61 64 6a 61 63 65 6e 74 |  --for |adjacent|
|00003940| 20 73 74 61 74 65 20 62 | 75 74 74 6f 6e 73 0d 70 | state b|uttons.p|
|00003950| 75 74 20 74 68 65 20 63 | 6c 69 63 6b 56 20 69 6e |ut the c|lickV in|
|00003960| 74 6f 20 63 56 0d 70 75 | 74 20 74 68 65 20 63 6c |to cV.pu|t the cl|
|00003970| 69 63 6b 48 20 69 6e 74 | 6f 20 63 48 0d 70 75 74 |ickH int|o cH.put|
|00003980| 20 61 62 73 28 63 48 20 | 2d 20 32 35 36 29 20 69 | abs(cH |- 256) i|
|00003990| 6e 74 6f 20 65 70 73 48 | 0d 70 75 74 20 61 62 73 |nto epsH|.put abs|
|000039a0| 28 63 56 20 2d 20 31 37 | 31 29 20 69 6e 74 6f 20 |(cV - 17|1) into |
|000039b0| 65 70 73 56 0d 69 66 20 | 65 70 73 56 20 b3 20 65 |epsV.if |epsV . e|
|000039c0| 70 73 48 20 74 68 65 6e | 0d 69 66 20 63 56 20 b2 |psH then|.if cV .|
|000039d0| 20 31 37 31 20 74 68 65 | 6e 0d 70 75 74 20 22 44 | 171 the|n.put "D|
|000039e0| 6f 77 6e 22 20 69 6e 74 | 6f 20 64 69 72 0d 65 6c |own" int|o dir.el|
|000039f0| 73 65 0d 70 75 74 20 22 | 55 70 22 20 69 6e 74 6f |se.put "|Up" into|
|00003a00| 20 64 69 72 0d 65 6e 64 | 20 69 66 0d 65 6c 73 65 | dir.end| if.else|
|00003a10| 0d 69 66 20 63 48 20 b2 | 20 32 35 36 20 74 68 65 |.if cH .| 256 the|
|00003a20| 6e 0d 70 75 74 20 22 52 | 69 67 68 74 22 20 69 6e |n.put "R|ight" in|
|00003a30| 74 6f 20 64 69 72 0d 65 | 6c 73 65 0d 70 75 74 20 |to dir.e|lse.put |
|00003a40| 22 4c 65 66 74 22 20 69 | 6e 74 6f 20 64 69 72 0d |"Left" i|nto dir.|
|00003a50| 65 6e 64 20 69 66 0d 65 | 6e 64 20 69 66 0d 72 65 |end if.e|nd if.re|
|00003a60| 74 75 72 6e 20 22 73 63 | 72 6f 6c 6c 22 20 26 26 |turn "sc|roll" &&|
|00003a70| 20 64 69 72 20 26 26 20 | 22 73 6c 6f 77 22 0d 65 | dir && |"slow".e|
|00003a80| 6e 64 20 67 65 74 45 66 | 66 65 63 74 0d 0d 0d 2d |nd getEf|fect...-|
|00003a90| 2d 68 61 6e 64 6c 65 72 | 20 66 6f 72 20 4f 46 46 |-handler| for OFF|
|00003aa0| 2d 4d 41 50 20 62 75 74 | 74 6f 6e 73 0d 6f 6e 20 |-MAP but|tons.on |
|00003ab0| 6d 6f 75 73 65 44 6f 77 | 6e 0d 70 75 74 20 63 68 |mouseDow|n.put ch|
|00003ac0| 61 72 20 32 20 74 6f 20 | 33 20 6f 66 20 77 6f 72 |ar 2 to |3 of wor|
|00003ad0| 64 20 33 20 6f 66 20 74 | 68 65 20 74 61 72 67 65 |d 3 of t|he targe|
|00003ae0| 74 20 69 6e 74 6f 20 73 | 0d 69 66 20 73 20 69 73 |t into s|.if s is|
|00003af0| 20 22 4f 4d 22 20 74 68 | 65 6e 0d 70 75 73 68 20 | "OM" th|en.push |
|00003b00| 63 64 0d 67 6f 20 63 64 | 20 22 61 64 22 0d 65 6e |cd.go cd| "ad".en|
|00003b10| 64 20 69 66 0d 65 6e 64 | 20 6d 6f 75 73 65 44 6f |d if.end| mouseDo|
|00003b20| 77 6e 0d 0d 66 75 6e 63 | 74 69 6f 6e 20 70 72 65 |wn..func|tion pre|
|00003b30| 66 69 78 20 73 74 72 0d | 72 65 74 75 72 6e 20 63 |fix str.|return c|
|00003b40| 68 61 72 20 31 20 74 6f | 20 32 20 6f 66 20 73 74 |har 1 to| 2 of st|
|00003b50| 72 0d 65 6e 64 20 70 72 | 65 66 69 78 0d 0d 66 75 |r.end pr|efix..fu|
|00003b60| 6e 63 74 69 6f 6e 20 73 | 75 66 66 69 78 20 73 74 |nction s|uffix st|
|00003b70| 72 0d 70 75 74 20 74 68 | 65 20 6e 75 6d 62 65 72 |r.put th|e number|
|00003b80| 20 6f 66 20 63 68 61 72 | 73 20 6f 66 20 73 74 72 | of char|s of str|
|00003b90| 20 69 6e 74 6f 20 6e 0d | 72 65 74 75 72 6e 20 63 | into n.|return c|
|00003ba0| 68 61 72 20 33 20 74 6f | 20 6e 20 6f 66 20 73 74 |har 3 to| n of st|
|00003bb0| 72 0d 65 6e 64 20 73 75 | 66 66 69 78 0d 0d 0d 0d |r.end su|ffix....|
|00003bc0| 2d 2d 2d 2d 54 68 69 73 | 20 69 73 20 74 68 65 20 |----This| is the |
|00003bd0| 73 63 72 69 70 74 20 66 | 6f 72 20 74 68 65 20 22 |script f|or the "|
|00003be0| 42 6c 61 6e 6b 22 20 62 | 61 63 6b 67 72 6f 75 6e |Blank" b|ackgroun|
|00003bf0| 64 0d 2d 2d 2d 2d 49 6e | 73 65 72 74 20 74 68 65 |d.----In|sert the|
|00003c00| 73 65 20 6c 69 6e 65 73 | 20 61 6e 64 20 75 6e 63 |se lines| and unc|
|00003c10| 6f 6d 6d 65 6e 74 20 74 | 68 65 6d 20 69 66 20 74 |omment t|hem if t|
|00003c20| 68 65 20 73 63 72 69 70 | 74 20 65 76 65 72 20 67 |he scrip|t ever g|
|00003c30| 65 74 73 0d 2d 2d 2d 2d | 74 72 61 73 68 65 64 20 |ets.----|trashed |
|00003c40| 6f 75 74 0d 2d 2d 6f 6e | 20 6f 70 65 6e 43 61 72 |out.--on| openCar|
|00003c50| 64 0d 2d 2d 67 65 74 20 | 74 68 65 20 73 68 6f 72 |d.--get |the shor|
|00003c60| 74 20 6e 61 6d 65 20 6f | 66 20 74 68 69 73 20 63 |t name o|f this c|
|00003c70| 61 72 64 0d 2d 2d 69 66 | 20 74 68 65 20 66 69 72 |ard.--if| the fir|
|00003c80| 73 74 20 63 68 61 72 20 | 6f 66 20 69 74 20 69 73 |st char |of it is|
|00003c90| 20 22 42 22 20 74 68 65 | 6e 0d 2d 2d 20 68 69 64 | "B" the|n.-- hid|
|00003ca0| 65 20 63 64 20 70 69 63 | 74 0d 2d 2d 20 76 69 73 |e cd pic|t.-- vis|
|00003cb0| 75 61 6c 20 65 66 66 65 | 63 74 20 64 69 73 73 6f |ual effe|ct disso|
|00003cc0| 6c 76 65 20 74 6f 20 62 | 6c 61 63 6b 0d 2d 2d 67 |lve to b|lack.--g|
|00003cd0| 6f 20 62 61 63 6b 0d 2d | 2d 65 6e 64 20 69 66 0d |o back.-|-end if.|
|00003ce0| 2d 2d 65 6e 64 20 6f 70 | 65 6e 43 61 72 64 0d 0d |--end op|enCard..|
|00003cf0| 0d 0d 0d 0d 0d 6f 6e 20 | 64 6f 45 6e 74 65 72 0d |.....on |doEnter.|
|00003d00| 2d 2d 65 6e 74 65 72 73 | 20 64 61 74 61 20 6f 6e |--enters| data on|
|00003d10| 20 6d 61 70 73 20 61 6e | 64 20 69 6e 20 69 6e 64 | maps an|d in ind|
|00003d20| 65 78 0d 2d 2d 6e 6f 74 | 20 73 75 70 70 6f 72 74 |ex.--not| support|
|00003d30| 65 64 0d 67 6c 6f 62 61 | 6c 20 74 68 65 6e 61 6d |ed.globa|l thenam|
|00003d40| 65 0d 61 6e 73 77 65 72 | 20 22 49 73 20 74 68 65 |e.answer| "Is the|
|00003d50| 20 64 61 74 61 20 6f 6e | 20 74 68 65 20 63 75 72 | data on| the cur|
|00003d60| 72 65 6e 74 20 6d 61 70 | 3f 22 20 77 69 74 68 20 |rent map|?" with |
|00003d70| 22 59 65 73 22 20 6f 72 | 20 22 4e 6f 22 0d 69 66 |"Yes" or| "No".if|
|00003d80| 20 69 74 20 69 73 20 22 | 4e 6f 22 20 74 68 65 6e | it is "|No" then|
|00003d90| 0d 73 65 74 20 74 68 65 | 20 72 65 73 75 6c 74 20 |.set the| result |
|00003da0| 74 6f 20 2d 33 0d 61 6e | 73 77 65 72 20 22 47 6f |to -3.an|swer "Go|
|00003db0| 20 74 6f 20 74 68 65 20 | 63 6f 72 72 65 63 74 20 | to the |correct |
|00003dc0| 6d 61 70 20 61 6e 64 20 | 74 72 79 20 61 67 61 69 |map and |try agai|
|00003dd0| 6e 22 20 77 69 74 68 20 | 22 4f 4b 22 0d 65 78 69 |n" with |"OK".exi|
|00003de0| 74 20 64 6f 45 6e 74 65 | 72 0d 65 6e 64 20 69 66 |t doEnte|r.end if|
|00003df0| 0d 61 73 6b 20 22 57 68 | 61 74 20 69 73 20 74 68 |.ask "Wh|at is th|
|00003e00| 65 20 6e 61 6d 65 20 6f | 66 20 74 68 65 20 64 61 |e name o|f the da|
|00003e10| 74 61 70 6f 69 6e 74 3f | 22 20 77 69 74 68 20 22 |tapoint?|" with "|
|00003e20| 6e 6f 74 68 69 6e 67 22 | 0d 69 66 20 69 74 20 69 |nothing"|.if it i|
|00003e30| 73 20 22 6e 6f 74 68 69 | 6e 67 22 20 74 68 65 6e |s "nothi|ng" then|
|00003e40| 0d 73 65 74 20 74 68 65 | 20 72 65 73 75 6c 74 20 |.set the| result |
|00003e50| 74 6f 20 2d 33 0d 65 78 | 69 74 20 64 6f 45 6e 74 |to -3.ex|it doEnt|
|00003e60| 65 72 0d 65 6e 64 20 69 | 66 0d 70 75 74 20 69 74 |er.end i|f.put it|
|00003e70| 20 69 6e 74 6f 20 74 68 | 65 6e 61 6d 65 0d 70 75 | into th|ename.pu|
|00003e80| 74 20 74 68 65 20 75 73 | 65 72 6c 65 76 65 6c 20 |t the us|erlevel |
|00003e90| 69 6e 74 6f 20 75 6c 0d | 73 65 74 20 74 68 65 20 |into ul.|set the |
|00003ea0| 75 73 65 72 6c 65 76 65 | 6c 20 74 6f 20 35 20 2d |userleve|l to 5 -|
|00003eb0| 2d 28 61 75 74 68 6f 72 | 69 6e 67 29 0d 61 6e 73 |-(author|ing).ans|
|00003ec0| 77 65 72 20 22 43 6c 69 | 63 6b 20 6e 65 61 72 20 |wer "Cli|ck near |
|00003ed0| 61 20 63 6c 65 61 72 20 | 70 6c 61 63 65 20 66 6f |a clear |place fo|
|00003ee0| 72 20 74 68 65 20 6c 61 | 62 65 6c 22 20 77 69 74 |r the la|bel" wit|
|00003ef0| 68 20 22 4f 4b 22 0d 77 | 61 69 74 20 75 6e 74 69 |h "OK".w|ait unti|
|00003f00| 6c 20 74 68 65 20 6d 6f | 75 73 65 63 6c 69 63 6b |l the mo|useclick|
|00003f10| 0d 61 6e 73 77 65 72 20 | 22 44 72 61 67 20 6c 61 |.answer |"Drag la|
|00003f20| 62 65 6c 20 74 6f 20 64 | 65 73 74 69 6e 61 74 69 |bel to d|estinati|
|00003f30| 6f 6e 22 20 77 69 74 68 | 20 22 4f 4b 22 0d 63 68 |on" with| "OK".ch|
|00003f40| 6f 6f 73 65 20 74 65 78 | 74 20 74 6f 6f 6c 0d 73 |oose tex|t tool.s|
|00003f50| 65 74 20 74 68 65 20 74 | 65 78 74 66 6f 6e 74 20 |et the t|extfont |
|00003f60| 74 6f 20 47 65 6e 65 76 | 61 0d 73 65 74 20 74 68 |to Genev|a.set th|
|00003f70| 65 20 74 65 78 74 73 69 | 7a 65 20 74 6f 20 39 0d |e textsi|ze to 9.|
|00003f80| 70 75 74 20 74 68 65 20 | 74 65 78 74 68 65 69 67 |put the |textheig|
|00003f90| 68 74 20 69 6e 74 6f 20 | 74 68 0d 63 6c 69 63 6b |ht into |th.click|
|00003fa0| 20 61 74 20 74 68 65 20 | 63 6c 69 63 6b 6c 6f 63 | at the |clickloc|
|00003fb0| 0d 74 79 70 65 20 6e 61 | 6d 65 0d 63 68 6f 6f 73 |.type na|me.choos|
|00003fc0| 65 20 73 65 6c 65 63 74 | 20 74 6f 6f 6c 0d 70 75 |e select| tool.pu|
|00003fd0| 74 20 69 74 65 6d 20 31 | 20 6f 66 20 74 68 65 20 |t item 1| of the |
|00003fe0| 63 6c 69 63 6b 6c 6f 63 | 20 69 6e 74 6f 20 6c 66 |clickloc| into lf|
|00003ff0| 74 0d 70 75 74 20 69 74 | 65 6d 20 32 20 6f 66 20 |t.put it|em 2 of |
|00004000| 74 68 65 20 63 6c 69 63 | 6b 6c 6f 63 20 69 6e 74 |the clic|kloc int|
|00004010| 6f 20 74 70 0d 73 75 62 | 74 72 61 63 74 20 74 68 |o tp.sub|tract th|
|00004020| 20 66 72 6f 6d 20 74 70 | 0d 73 75 62 74 72 61 63 | from tp|.subtrac|
|00004030| 74 20 34 20 66 72 6f 6d | 20 6c 66 74 0d 64 72 61 |t 4 from| lft.dra|
|00004040| 67 20 66 72 6f 6d 20 20 | 6c 66 74 2c 74 70 20 74 |g from  |lft,tp t|
|00004050| 6f 20 28 6c 66 74 20 2b | 20 36 2a 6e 63 68 61 72 |o (lft +| 6*nchar|
|00004060| 29 2c c2 0d 28 74 70 20 | 2b 20 74 68 20 2b 20 33 |),..(tp |+ th + 3|
|00004070| 29 0d 64 6f 4d 65 6e 75 | 20 22 54 72 61 6e 73 70 |).doMenu| "Transp|
|00004080| 61 72 65 6e 74 22 0d 2d | 2d 2d 0d 65 6e 64 20 64 |arent".-|--.end d|
|00004090| 6f 45 6e 74 65 72 0d 0d | 6f 6e 20 64 6f 43 6c 69 |oEnter..|on doCli|
|000040a0| 63 6b 20 20 2d 2d 6e 6f | 74 20 64 6f 6e 65 0d 67 |ck  --no|t done.g|
|000040b0| 6c 6f 62 61 6c 20 69 6e | 64 78 2c 69 6e 64 79 2c |lobal in|dx,indy,|
|000040c0| 74 68 65 6e 61 6d 65 0d | 61 6e 73 77 65 72 20 22 |thename.|answer "|
|000040d0| 49 73 20 74 68 69 73 20 | 61 20 63 69 74 79 20 6c |Is this |a city l|
|000040e0| 6f 63 61 74 69 6f 6e 3f | 22 20 77 69 74 68 20 22 |ocation?|" with "|
|000040f0| 59 65 73 22 20 6f 72 20 | 22 4e 6f 22 0d 2d 2d 43 |Yes" or |"No".--C|
|00004100| 69 74 69 65 73 20 67 65 | 74 20 6c 69 74 74 6c 65 |ities ge|t little|
|00004110| 20 62 6c 61 63 6b 20 64 | 6f 74 73 2c 20 6f 74 68 | black d|ots, oth|
|00004120| 65 72 73 20 73 74 75 66 | 66 20 64 6f 6e 27 74 0d |ers stuf|f don't.|
|00004130| 70 75 74 20 69 74 20 69 | 6e 74 6f 20 61 6e 73 72 |put it i|nto ansr|
|00004140| 0d 61 6e 73 77 65 72 20 | 22 50 6c 65 61 73 65 20 |.answer |"Please |
|00004150| 63 6c 69 63 6b 20 6f 6e | 20 74 68 65 20 65 78 61 |click on| the exa|
|00004160| 63 74 20 6c 6f 63 61 74 | 69 6f 6e 22 0d 77 61 69 |ct locat|ion".wai|
|00004170| 74 20 75 6e 74 69 6c 20 | 74 68 65 20 6d 6f 75 73 |t until |the mous|
|00004180| 65 63 6c 69 63 6b 0d 70 | 75 74 20 69 74 65 6d 20 |eclick.p|ut item |
|00004190| 31 20 6f 66 20 74 68 65 | 20 63 6c 69 63 6b 6c 6f |1 of the| clicklo|
|000041a0| 63 20 69 6e 74 6f 20 69 | 6e 64 78 0d 70 75 74 20 |c into i|ndx.put |
|000041b0| 69 74 65 6d 20 32 20 6f | 66 20 74 68 65 20 63 6c |item 2 o|f the cl|
|000041c0| 69 63 6b 6c 6f 63 20 69 | 6e 74 6f 20 69 6e 64 79 |ickloc i|nto indy|
|000041d0| 0d 2d 2d 69 6e 73 65 72 | 74 20 69 74 20 69 6e 20 |.--inser|t it in |
|000041e0| 74 68 65 20 69 6e 64 65 | 78 2c 20 28 73 74 65 61 |the inde|x, (stea|
|000041f0| 6c 20 63 6f 64 65 20 66 | 72 6f 6d 20 68 6f 6d 65 |l code f|rom home|
|00004200| 29 0d 65 6e 64 20 64 6f | 43 6c 69 63 6b 0d 0d 6f |).end do|Click..o|
|00004210| 6e 20 70 6f 70 55 4c 0d | 67 6c 6f 62 61 6c 20 55 |n popUL.|global U|
|00004220| 53 52 4c 56 4c 0d 73 65 | 74 20 74 68 65 20 75 73 |SRLVL.se|t the us|
|00004230| 65 72 6c 65 76 65 6c 20 | 74 6f 20 55 53 52 4c 56 |erlevel |to USRLV|
|00004240| 4c 0d 65 6e 64 20 70 6f | 70 55 4c 0d 0d 0d 2d 2d |L.end po|pUL...--|
|00004250| 2d 2d 2d 2d 2d 43 6f 6c | 6c 65 65 6e 27 73 20 63 |-----Col|leen's c|
|00004260| 75 73 74 6f 6d 20 75 74 | 69 6c 69 74 69 65 73 0d |ustom ut|ilities.|
|00004270| 6f 6e 20 64 6f 75 62 6c | 65 45 6e 63 72 79 70 74 |on doubl|eEncrypt|
|00004280| 20 62 67 66 6e 2c 6b 65 | 79 20 20 20 2d 2d 62 67 | bgfn,ke|y   --bg|
|00004290| 66 6e 20 69 73 20 74 68 | 65 20 6e 61 6d 65 20 6f |fn is th|e name o|
|000042a0| 66 20 61 20 62 61 63 6b | 67 72 6f 75 6e 64 20 66 |f a back|ground f|
|000042b0| 69 65 6c 64 0d 73 65 74 | 20 74 68 65 20 6c 6f 63 |ield.set| the loc|
|000042c0| 6b 74 65 78 74 20 6f 66 | 20 62 67 20 66 6c 64 20 |ktext of| bg fld |
|000042d0| 62 67 66 6e 20 74 6f 20 | 66 61 6c 73 65 0d 70 75 |bgfn to |false.pu|
|000042e0| 74 20 62 67 20 66 6c 64 | 20 62 67 66 6e 20 69 6e |t bg fld| bgfn in|
|000042f0| 74 6f 20 74 65 6d 70 0d | 70 75 74 20 74 68 65 20 |to temp.|put the |
|00004300| 6e 75 6d 62 65 72 20 6f | 66 20 63 68 61 72 73 20 |number o|f chars |
|00004310| 6f 66 20 6b 65 79 20 69 | 6e 74 6f 20 6b 6c 0d 70 |of key i|nto kl.p|
|00004320| 75 74 20 65 6e 63 72 79 | 70 74 20 28 74 65 6d 70 |ut encry|pt (temp|
|00004330| 2c 6b 65 79 2c 6b 6c 29 | 20 69 6e 74 6f 20 62 67 |,key,kl)| into bg|
|00004340| 20 66 6c 64 20 62 67 66 | 6e 0d 73 65 74 20 74 68 | fld bgf|n.set th|
|00004350| 65 20 6c 6f 63 6b 74 65 | 78 74 20 6f 66 20 62 67 |e lockte|xt of bg|
|00004360| 20 66 6c 64 20 62 67 66 | 6e 20 74 6f 20 74 72 75 | fld bgf|n to tru|
|00004370| 65 0d 65 6e 64 20 64 6f | 75 62 6c 65 45 6e 63 72 |e.end do|ubleEncr|
|00004380| 79 70 74 0d 0d 0d 66 75 | 6e 63 74 69 6f 6e 20 65 |ypt...fu|nction e|
|00004390| 6e 63 72 79 70 74 20 73 | 74 72 2c 6b 65 79 2c 6b |ncrypt s|tr,key,k|
|000043a0| 6c 0d 70 75 74 20 74 68 | 65 20 6e 75 6d 62 65 72 |l.put th|e number|
|000043b0| 20 6f 66 20 63 68 61 72 | 73 20 6f 66 20 73 74 72 | of char|s of str|
|000043c0| 20 69 6e 74 6f 20 6e 63 | 0d 70 75 74 20 31 20 69 | into nc|.put 1 i|
|000043d0| 6e 74 6f 20 6b 0d 72 65 | 70 65 61 74 20 77 69 74 |nto k.re|peat wit|
|000043e0| 68 20 6a 20 3d 20 31 20 | 74 6f 20 6e 63 0d 73 65 |h j = 1 |to nc.se|
|000043f0| 74 20 74 68 65 20 63 75 | 72 73 6f 72 20 74 6f 20 |t the cu|rsor to |
|00004400| 62 75 73 79 0d 69 66 20 | 6b 20 3e 20 6b 6c 20 74 |busy.if |k > kl t|
|00004410| 68 65 6e 20 70 75 74 20 | 31 20 69 6e 74 6f 20 6b |hen put |1 into k|
|00004420| 0d 70 75 74 20 63 68 61 | 72 54 6f 4e 75 6d 28 63 |.put cha|rToNum(c|
|00004430| 68 61 72 20 6a 20 6f 66 | 20 73 74 72 29 20 69 6e |har j of| str) in|
|00004440| 74 6f 20 6e 31 0d 70 75 | 74 20 63 68 61 72 54 6f |to n1.pu|t charTo|
|00004450| 4e 75 6d 28 63 68 61 72 | 20 6b 20 6f 66 20 6b 65 |Num(char| k of ke|
|00004460| 79 29 20 69 6e 74 6f 20 | 6e 32 0d 69 66 20 6e 31 |y) into |n2.if n1|
|00004470| 20 3c 3e 20 6e 32 20 74 | 68 65 6e 20 70 75 74 20 | <> n2 t|hen put |
|00004480| 78 6f 72 28 6e 31 2c 6e | 32 29 20 69 6e 74 6f 20 |xor(n1,n|2) into |
|00004490| 6e 32 0d 70 75 74 20 6e | 75 6d 74 6f 43 68 61 72 |n2.put n|umtoChar|
|000044a0| 28 6e 32 29 20 69 6e 74 | 6f 20 63 68 61 72 20 6a |(n2) int|o char j|
|000044b0| 20 6f 66 20 73 74 72 0d | 61 64 64 20 31 20 74 6f | of str.|add 1 to|
|000044c0| 20 6b 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 72 65 | k.end r|epeat.re|
|000044d0| 74 75 72 6e 20 73 74 72 | 0d 65 6e 64 20 65 6e 63 |turn str|.end enc|
|000044e0| 72 79 70 74 0d 0d 0d 0d | 66 75 6e 63 74 69 6f 6e |rypt....|function|
|000044f0| 20 78 6f 72 20 61 2c 62 | 0d 70 75 74 20 30 20 69 | xor a,b|.put 0 i|
|00004500| 6e 74 6f 20 61 6e 73 77 | 65 72 0d 72 65 70 65 61 |nto answ|er.repea|
|00004510| 74 20 77 69 74 68 20 69 | 20 3d 20 30 20 74 6f 20 |t with i| = 0 to |
|00004520| 37 0d 69 66 20 61 20 3e | 3d 20 32 5e 28 37 2d 69 |7.if a >|= 2^(7-i|
|00004530| 29 20 74 68 65 6e 20 20 | 2d 2d 61 20 69 73 2c 0d |) then  |--a is,.|
|00004540| 69 66 20 6e 6f 74 20 28 | 62 20 3e 3d 20 32 5e 28 |if not (|b >= 2^(|
|00004550| 37 2d 69 29 29 20 74 68 | 65 6e 0d 61 64 64 20 32 |7-i)) th|en.add 2|
|00004560| 5e 28 37 2d 69 29 20 74 | 6f 20 61 6e 73 77 65 72 |^(7-i) t|o answer|
|00004570| 0d 65 6c 73 65 0d 73 75 | 62 74 72 61 63 74 20 32 |.else.su|btract 2|
|00004580| 5e 28 37 2d 69 29 20 66 | 72 6f 6d 20 62 0d 65 6e |^(7-i) f|rom b.en|
|00004590| 64 20 69 66 0d 73 75 62 | 74 72 61 63 74 20 32 5e |d if.sub|tract 2^|
|000045a0| 28 37 2d 69 29 20 66 72 | 6f 6d 20 61 0d 65 6c 73 |(7-i) fr|om a.els|
|000045b0| 65 20 69 66 20 62 20 3e | 3d 20 32 5e 28 37 2d 69 |e if b >|= 2^(7-i|
|000045c0| 29 20 74 68 65 6e 20 2d | 2d 62 20 69 73 0d 69 66 |) then -|-b is.if|
|000045d0| 20 6e 6f 74 20 28 61 20 | 3e 3d 20 32 5e 28 37 2d | not (a |>= 2^(7-|
|000045e0| 69 29 29 20 74 68 65 6e | 0d 61 64 64 20 32 5e 28 |i)) then|.add 2^(|
|000045f0| 37 2d 69 29 20 74 6f 20 | 61 6e 73 77 65 72 0d 65 |7-i) to |answer.e|
|00004600| 6c 73 65 0d 73 75 62 74 | 72 61 63 74 20 32 5e 28 |lse.subt|ract 2^(|
|00004610| 37 2d 69 29 20 66 72 6f | 6d 20 61 0d 65 6e 64 20 |7-i) fro|m a.end |
|00004620| 69 66 0d 73 75 62 74 72 | 61 63 74 20 32 5e 28 37 |if.subtr|act 2^(7|
|00004630| 2d 69 29 20 66 72 6f 6d | 20 62 0d 65 6e 64 20 69 |-i) from| b.end i|
|00004640| 66 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 72 65 74 |f.end re|peat.ret|
|00004650| 75 72 6e 20 61 6e 73 77 | 65 72 0d 65 6e 64 20 78 |urn answ|er.end x|
|00004660| 6f 72 0d 0d 66 75 6e 63 | 74 69 6f 6e 20 65 6e 74 |or..func|tion ent|
|00004670| 65 72 4b 65 79 20 64 75 | 6d 6d 79 0d 70 75 74 20 |erKey du|mmy.put |
|00004680| 65 6d 70 74 79 20 69 6e | 74 6f 20 6b 65 79 0d 61 |empty in|to key.a|
|00004690| 73 6b 20 22 48 6f 77 20 | 6d 61 6e 79 20 6b 65 79 |sk "How |many key|
|000046a0| 20 6e 75 6d 62 65 72 73 | 3f 22 0d 69 66 20 69 74 | numbers|?".if it|
|000046b0| 20 69 73 20 65 6d 70 74 | 79 20 74 68 65 6e 20 65 | is empt|y then e|
|000046c0| 78 69 74 20 65 6e 74 65 | 72 4b 65 79 0d 70 75 74 |xit ente|rKey.put|
|000046d0| 20 69 74 20 69 6e 74 6f | 20 6b 6e 0d 72 65 70 65 | it into| kn.repe|
|000046e0| 61 74 20 77 69 74 68 20 | 69 20 3d 20 31 20 74 6f |at with |i = 1 to|
|000046f0| 20 6b 6e 0d 61 73 6b 20 | 22 43 61 72 65 66 75 6c | kn.ask |"Careful|
|00004700| 6c 79 20 65 6e 74 65 72 | 20 65 61 63 68 20 6b 65 |ly enter| each ke|
|00004710| 79 20 6e 75 6d 62 65 72 | 2c 20 74 68 65 6e 20 70 |y number|, then p|
|00004720| 72 65 73 73 20 52 45 54 | 55 52 4e 22 0d 69 66 20 |ress RET|URN".if |
|00004730| 69 74 20 69 73 20 65 6d | 70 74 79 20 74 68 65 6e |it is em|pty then|
|00004740| 0d 72 65 74 75 72 6e 20 | 22 22 0d 65 6e 64 20 69 |.return |"".end i|
|00004750| 66 0d 70 75 74 20 6e 75 | 6d 74 6f 43 68 61 72 28 |f.put nu|mtoChar(|
|00004760| 69 74 29 20 61 66 74 65 | 72 20 6b 65 79 0d 65 6e |it) afte|r key.en|
|00004770| 64 20 72 65 70 65 61 74 | 0d 72 65 74 75 72 6e 20 |d repeat|.return |
|00004780| 6b 65 79 0d 65 6e 64 20 | 65 6e 74 65 72 4b 65 79 |key.end |enterKey|
|00004790| 0d 0d 0d 6f 6e 20 64 6f | 44 65 43 72 79 70 74 0d |...on do|DeCrypt.|
|000047a0| 61 73 6b 20 22 45 6e 74 | 65 72 20 32 2d 6c 65 74 |ask "Ent|er 2-let|
|000047b0| 74 65 72 20 70 6f 73 74 | 61 6c 20 63 6f 64 65 20 |ter post|al code |
|000047c0| 66 6f 72 20 73 74 61 74 | 65 20 74 6f 20 64 65 63 |for stat|e to dec|
|000047d0| 72 79 70 74 22 0d 70 75 | 74 20 22 49 2d 22 26 69 |rypt".pu|t "I-"&i|
|000047e0| 74 20 69 6e 74 6f 20 63 | 64 6e 0d 67 6f 20 63 64 |t into c|dn.go cd|
|000047f0| 20 63 64 6e 20 6f 66 20 | 73 74 61 63 6b 20 22 a4 | cdn of |stack ".|
|00004800| 43 6f 6e 74 72 6f 6c 22 | 0d 69 66 20 74 68 65 20 |Control"|.if the |
|00004810| 72 65 73 75 6c 74 20 69 | 73 20 6e 6f 74 20 65 6d |result i|s not em|
|00004820| 70 74 79 20 74 68 65 6e | 0d 61 6e 73 77 65 72 20 |pty then|.answer |
|00004830| 22 4e 6f 20 73 75 63 68 | 20 73 74 61 74 65 2d 2d |"No such| state--|
|00004840| 74 72 79 20 61 67 61 69 | 6e 22 0d 65 78 69 74 20 |try agai|n".exit |
|00004850| 64 6f 44 65 43 72 79 70 | 74 0d 65 6e 64 20 69 66 |doDeCryp|t.end if|
|00004860| 0d 70 75 74 20 65 6e 74 | 65 72 4b 65 79 28 29 20 |.put ent|erKey() |
|00004870| 69 6e 74 6f 20 6b 65 79 | 0d 69 66 20 6b 65 79 20 |into key|.if key |
|00004880| 69 73 20 65 6d 70 74 79 | 20 74 68 65 6e 20 65 78 |is empty| then ex|
|00004890| 69 74 20 64 6f 44 65 43 | 72 79 70 74 0d 61 6e 73 |it doDeC|rypt.ans|
|000048a0| 77 65 72 20 22 50 6c 65 | 61 73 65 20 65 6e 74 65 |wer "Ple|ase ente|
|000048b0| 72 20 6b 65 79 20 61 67 | 61 69 6e 20 74 6f 20 76 |r key ag|ain to v|
|000048c0| 65 72 69 66 79 22 0d 70 | 75 74 20 65 6e 74 65 72 |erify".p|ut enter|
|000048d0| 4b 65 79 28 29 20 69 6e | 74 6f 20 76 6b 65 79 0d |Key() in|to vkey.|
|000048e0| 69 66 20 69 74 20 69 73 | 20 65 6d 70 74 79 20 74 |if it is| empty t|
|000048f0| 68 65 6e 20 65 78 69 74 | 20 64 6f 44 65 43 72 79 |hen exit| doDeCry|
|00004900| 70 74 0d 69 66 20 76 6b | 65 79 20 3c 3e 20 6b 65 |pt.if vk|ey <> ke|
|00004910| 79 20 74 68 65 6e 0d 61 | 6e 73 77 65 72 20 22 4b |y then.a|nswer "K|
|00004920| 65 79 20 6d 69 73 6d 61 | 74 63 68 2d 2d 74 72 79 |ey misma|tch--try|
|00004930| 20 61 67 61 69 6e 22 0d | 65 78 69 74 20 64 6f 44 | again".|exit doD|
|00004940| 65 43 72 79 70 74 0d 65 | 6e 64 20 69 66 0d 70 75 |eCrypt.e|nd if.pu|
|00004950| 74 20 62 67 20 66 6c 64 | 20 22 a5 6c 79 72 69 63 |t bg fld| ".lyric|
|00004960| 73 22 20 69 6e 74 6f 20 | 6c 63 72 79 70 74 0d 70 |s" into |lcrypt.p|
|00004970| 75 74 20 62 67 20 66 6c | 64 20 22 a5 73 6f 6e 67 |ut bg fl|d ".song|
|00004980| 20 64 61 74 61 22 20 69 | 6e 74 6f 20 73 63 72 79 | data" i|nto scry|
|00004990| 70 74 0d 64 6f 75 62 6c | 65 45 6e 63 72 79 70 74 |pt.doubl|eEncrypt|
|000049a0| 20 22 a5 6c 79 72 69 63 | 73 22 2c 6b 65 79 0d 64 | ".lyric|s",key.d|
|000049b0| 6f 75 62 6c 65 45 6e 63 | 72 79 70 74 20 22 a5 73 |oubleEnc|rypt ".s|
|000049c0| 6f 6e 67 20 64 61 74 61 | 22 2c 6b 65 79 0d 68 69 |ong data|",key.hi|
|000049d0| 64 65 20 63 64 20 70 69 | 63 74 0d 73 68 6f 77 20 |de cd pi|ct.show |
|000049e0| 62 67 20 66 6c 64 20 22 | a5 6c 79 72 69 63 73 22 |bg fld "|.lyrics"|
|000049f0| 0d 62 65 65 70 0d 61 6e | 73 77 65 72 20 22 56 65 |.beep.an|swer "Ve|
|00004a00| 72 69 66 79 3a 20 20 49 | 73 20 64 65 43 72 79 70 |rify:  I|s deCryp|
|00004a10| 74 69 6f 6e 20 4f 4b 3f | 22 20 77 69 74 68 20 22 |tion OK?|" with "|
|00004a20| 59 65 73 22 20 6f 72 20 | 22 4e 6f 22 0d 69 66 20 |Yes" or |"No".if |
|00004a30| 69 74 20 69 73 20 22 4e | 6f 22 20 74 68 65 6e 0d |it is "N|o" then.|
|00004a40| 70 75 74 20 6c 63 72 79 | 70 74 20 69 6e 74 6f 20 |put lcry|pt into |
|00004a50| 62 67 20 66 6c 64 20 22 | a5 6c 79 72 69 63 73 22 |bg fld "|.lyrics"|
|00004a60| 0d 70 75 74 20 73 63 72 | 79 70 74 20 69 6e 74 6f |.put scr|ypt into|
|00004a70| 20 62 67 20 66 6c 64 20 | 22 a5 73 6f 6e 67 20 64 | bg fld |".song d|
|00004a80| 61 74 61 22 0d 65 6c 73 | 65 0d 70 75 74 20 65 6d |ata".els|e.put em|
|00004a90| 70 74 79 20 69 6e 74 6f | 20 62 67 20 66 6c 64 20 |pty into| bg fld |
|00004aa0| 22 a5 65 6e 63 72 79 70 | 74 22 0d 65 6e 64 20 69 |".encryp|t".end i|
|00004ab0| 66 0d 65 6e 64 20 64 6f | 44 65 43 72 79 70 74 0d |f.end do|DeCrypt.|
|00004ac0| 0d 6f 6e 20 64 6f 4e 65 | 77 50 57 0d 67 6c 6f 62 |.on doNe|wPW.glob|
|00004ad0| 61 6c 20 53 51 50 57 2c | 54 43 50 57 20 20 2d 2d |al SQPW,|TCPW  --|
|00004ae0| 74 68 65 20 74 77 6f 20 | 70 61 73 73 77 6f 72 64 |the two |password|
|00004af0| 73 2c 20 72 65 73 70 65 | 63 74 69 76 65 6c 79 0d |s, respe|ctively.|
|00004b00| 61 6e 73 77 65 72 20 22 | 57 68 69 63 68 20 50 61 |answer "|Which Pa|
|00004b10| 73 73 77 6f 72 64 20 64 | 6f 20 79 6f 75 20 77 61 |ssword d|o you wa|
|00004b20| 6e 74 20 74 6f 20 63 68 | 61 6e 67 65 3f 22 20 77 |nt to ch|ange?" w|
|00004b30| 69 74 68 20 22 51 75 69 | 7a 20 4f 70 74 69 6f 6e |ith "Qui|z Option|
|00004b40| 73 22 20 6f 72 20 22 53 | 63 6f 72 65 20 43 61 72 |s" or "S|core Car|
|00004b50| 64 22 0d 70 75 74 20 69 | 74 20 69 6e 74 6f 20 74 |d".put i|t into t|
|00004b60| 6d 70 0d 61 73 6b 20 22 | 4f 6c 64 20 50 61 73 73 |mp.ask "|Old Pass|
|00004b70| 77 6f 72 64 3f 22 0d 69 | 66 20 69 74 20 69 73 20 |word?".i|f it is |
|00004b80| 22 43 61 6e 63 65 6c 22 | 20 74 68 65 6e 20 65 78 |"Cancel"| then ex|
|00004b90| 69 74 20 64 6f 4e 65 77 | 50 57 0d 65 6c 73 65 20 |it doNew|PW.else |
|00004ba0| 70 75 74 20 69 74 20 69 | 6e 74 6f 20 4f 50 57 0d |put it i|nto OPW.|
|00004bb0| 61 73 6b 20 22 4e 65 77 | 20 50 61 73 73 77 6f 72 |ask "New| Passwor|
|00004bc0| 64 3f 22 0d 69 66 20 69 | 74 20 69 73 20 22 43 61 |d?".if i|t is "Ca|
|00004bd0| 6e 63 65 6c 22 20 74 68 | 65 6e 20 65 78 69 74 20 |ncel" th|en exit |
|00004be0| 64 6f 4e 65 77 50 57 0d | 70 75 74 20 69 74 20 69 |doNewPW.|put it i|
|00004bf0| 6e 74 6f 20 4e 50 57 0d | 69 66 20 74 6d 70 20 69 |nto NPW.|if tmp i|
|00004c00| 73 20 22 51 75 69 7a 20 | 4f 70 74 69 6f 6e 73 22 |s "Quiz |Options"|
|00004c10| 20 74 68 65 6e 0d 69 66 | 20 53 51 50 57 20 3d 20 | then.if| SQPW = |
|00004c20| 4f 50 57 20 74 68 65 6e | 0d 70 75 74 20 4e 50 57 |OPW then|.put NPW|
|00004c30| 20 69 6e 74 6f 20 53 51 | 50 57 0d 65 6c 73 65 0d | into SQ|PW.else.|
|00004c40| 62 65 65 70 0d 61 6e 73 | 77 65 72 20 22 4b 65 79 |beep.ans|wer "Key|
|00004c50| 20 6d 69 73 6d 61 74 63 | 68 2d 2d 74 72 79 20 61 | mismatc|h--try a|
|00004c60| 67 61 69 6e 22 0d 65 6e | 64 20 69 66 0d 65 6c 73 |gain".en|d if.els|
|00004c70| 65 0d 69 66 20 54 43 50 | 57 20 3d 20 4f 50 57 20 |e.if TCP|W = OPW |
|00004c80| 74 68 65 6e 0d 70 75 74 | 20 4e 50 57 20 69 6e 74 |then.put| NPW int|
|00004c90| 6f 20 54 43 50 57 0d 65 | 6c 73 65 0d 62 65 65 70 |o TCPW.e|lse.beep|
|00004ca0| 0d 61 6e 73 77 65 72 20 | 22 4b 65 79 20 6d 69 73 |.answer |"Key mis|
|00004cb0| 6d 61 74 63 68 2d 2d 74 | 72 79 20 61 67 61 69 6e |match--t|ry again|
|00004cc0| 22 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 69 66 0d |".end if|.end if.|
|00004cd0| 65 6e 64 20 64 6f 4e 65 | 77 50 57 0d 0d 0d 6f 6e |end doNe|wPW...on|
|00004ce0| 20 63 6c 65 61 6e 55 53 | 48 6f 6d 65 0d 6c 6f 63 | cleanUS|Home.loc|
|00004cf0| 6b 20 73 63 72 65 65 6e | 0d 68 69 64 65 20 63 64 |k screen|.hide cd|
|00004d00| 20 66 6c 64 20 22 53 74 | 61 74 65 20 6e 61 6d 65 | fld "St|ate name|
|00004d10| 22 0d 72 65 70 65 61 74 | 20 77 69 74 68 20 69 20 |".repeat| with i |
|00004d20| 3d 20 32 20 74 6f 20 35 | 31 0d 73 65 74 20 74 68 |= 2 to 5|1.set th|
|00004d30| 65 20 63 75 72 73 6f 72 | 20 74 6f 20 62 75 73 79 |e cursor| to busy|
|00004d40| 0d 73 65 74 20 74 68 65 | 20 73 68 6f 77 6e 61 6d |.set the| shownam|
|00004d50| 65 20 6f 66 20 63 64 20 | 62 74 6e 20 69 20 74 6f |e of cd |btn i to|
|00004d60| 20 74 72 75 65 0d 65 6e | 64 20 72 65 70 65 61 74 | true.en|d repeat|
|00004d70| 0d 75 6e 6c 6f 63 6b 20 | 73 63 72 65 65 6e 0d 65 |.unlock |screen.e|
|00004d80| 6e 64 20 63 6c 65 61 6e | 55 53 48 6f 6d 65 0d 0d |nd clean|USHome..|
|00004d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e00| 00 00 02 00 4d 41 53 54 | ff ff ff ff 00 00 00 00 |....MAST|........|
|00004e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e20| 00 00 00 e7 00 00 00 00 | 00 02 ac 96 00 02 ae e0 |........|........|
|00004e30| 00 02 b1 cb 00 02 b0 bd | 00 02 b2 47 00 03 fb 87 |........|...G....|
|00004e40| 00 03 bb 0b 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005000| 00 00 05 80 46 52 45 45 | 00 00 00 00 00 00 00 00 |....FREE|........|
|00005010| 0f 46 72 65 65 20 4f 62 | 6a 65 63 74 20 20 20 20 |.Free Ob|ject    |
|00005020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000051a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000051b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000051c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000051d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000051e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000051f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005580| 00 00 00 40 42 4b 47 44 | 00 00 0a 96 00 00 00 00 |...@BKGD|........|
|00005590| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 0a 96 |........|........|
|000055a0| 00 00 0a 96 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000055c0| 00 00 00 40 43 41 52 44 | 00 00 0b e0 00 00 00 00 |...@CARD|........|
|000055d0| 00 00 0e 47 00 00 00 00 | 00 00 00 00 00 00 00 00 |...G....|........|
|000055e0| 00 00 10 0b 00 00 0a 96 | 00 00 00 00 00 00 00 00 |........|........|
|000055f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005600| 00 00 00 20 46 54 42 4c | 00 00 0d bd 00 00 00 00 |... FTBL|........|
|00005610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005620| 00 00 00 20 53 54 42 4c | 00 00 0c cb 00 00 00 00 |... STBL|........|
|00005630| 00 00 00 00 00 00 00 01 | 00 00 00 00 00 00 00 00 |........|........|
|00005640| 00 00 09 a0 42 4d 41 50 | 00 00 0e 47 00 00 00 00 |....BMAP|...G....|
|00005650| 00 00 00 00 00 01 00 00 | 00 00 00 00 01 56 02 00 |........|.....V..|
|00005660| 00 00 00 00 00 00 00 00 | 00 26 00 5b 00 cc 01 82 |........|.&.[....|
|00005670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 09 48 |........|.......H|
|00005680| 23 01 80 e2 07 23 03 c0 | e2 07 23 03 fc e2 07 33 |#....#..|..#....3|
|00005690| 01 ff 80 e2 06 33 01 ff | e0 e2 06 33 01 ff f0 e2 |.....3..|...3....|
|000056a0| 06 33 01 e7 f8 e2 06 33 | 01 e0 fc e2 06 33 01 e0 |.3.....3|.....3..|
|000056b0| 3e e2 06 33 01 e0 1f e2 | 06 33 01 e0 0f e2 06 33 |>..3....|.3.....3|
|000056c0| 01 e0 0f 3b c0 07 e0 e1 | 08 8a 7f 01 81 20 08 10 |...;....|..... ..|
|000056d0| 01 fe e1 06 16 80 18 06 | c1 42 10 10 08 02 01 00 |........|.B......|
|000056e0| f0 e1 04 15 08 46 3f c0 | 00 08 c1 04 08 20 04 04 |.....F?.|..... ..|
|000056f0| 00 03 08 e1 04 77 06 00 | 0c 01 81 c0 20 64 43 c2 |.....w..|.... dC.|
|00005700| 00 01 04 04 16 30 0d 66 | 40 19 80 12 02 42 74 20 |.....0.f|@....Bt |
|00005710| 00 04 21 00 7e 08 17 48 | 0d 55 04 00 20 40 01 13 |..!.~..H|.U.. @..|
|00005720| 20 02 c1 10 04 06 10 80 | 00 10 64 e1 04 57 40 20 | .......|..d..W@ |
|00005730| 00 80 02 c1 03 c0 00 08 | 08 40 01 f0 22 01 98 13 |........|.@.."...|
|00005740| c0 27 01 80 07 67 80 10 | 00 60 01 c2 42 04 00 80 |.'...g..|.`..B...|
|00005750| 40 12 40 24 01 20 63 30 | 3f ff c0 02 40 07 67 07 |@.@$. c0|?...@.g.|
|00005760| 08 00 10 00 20 14 02 32 | 04 00 01 14 10 63 48 c0 |.... ..2|.....cH.|
|00005770| 00 23 00 20 07 56 01 08 | 84 00 08 25 21 20 42 80 |.#. .V..|...%! B.|
|00005780| 3e 10 f0 62 01 08 00 f0 | 00 81 22 04 82 08 46 20 |>..b....|.."...F |
|00005790| 00 40 01 06 c1 12 00 20 | ff 02 01 00 08 33 84 01 |.@..... |.....3..|
|000057a0| 08 24 20 40 08 25 02 01 | 23 84 20 04 c1 0c 00 10 |.$ @.%..|#. .....|
|000057b0| 80 01 00 88 04 13 40 53 | 81 1f 87 c4 20 08 e1 00 |......@S|.... ...|
|000057c0| c1 20 01 08 40 00 80 44 | 02 13 02 34 e0 00 02 09 |. ..@..D|...4....|
|000057d0| 38 02 00 40 14 02 62 84 | 39 80 7c 03 e0 13 20 35 |8..@..b.|9.|... 5|
|000057e0| 04 00 1c 08 14 10 42 08 | 20 00 20 28 06 40 16 01 |......B.| . (.@..|
|000057f0| c1 00 04 00 04 00 40 01 | 02 08 14 08 12 86 12 18 |......@.|........|
|00005800| 44 01 20 10 02 13 20 14 | 10 13 42 13 80 08 14 04 |D. ... .|..B.....|
|00005810| 42 41 e0 00 04 65 c0 08 | 41 00 40 02 16 80 12 20 |BA...e..|A.@.... |
|00005820| 23 02 10 07 17 20 32 02 | 10 01 74 04 20 f0 83 fe |#.... 2.|..t. ...|
|00005830| 00 e0 23 08 40 26 41 08 | 07 23 01 02 c1 02 00 10 |..#.@&A.|.#......|
|00005840| 02 00 01 00 10 64 02 00 | 0f 04 00 21 34 04 00 02 |.....d..|...!4...|
|00005850| 16 80 07 54 e1 fc 20 0c | 04 32 90 00 80 23 01 20 |...T.. .|.2...#. |
|00005860| 13 40 06 c1 01 00 01 00 | 02 00 02 04 07 89 34 0f |.@......|......4.|
|00005870| ff 80 12 0c 22 07 80 46 | 03 ff 00 fc 23 03 e1 c1 |...."..F|....#...|
|00005880| ef f8 0f 80 1e 00 1f 3c | 07 24 07 ff 16 03 2e 01 |.......<|.$......|
|00005890| f1 c1 e7 f0 07 80 1f 00 | 0f bc 07 24 03 fe e1 16 |........|...$....|
|000058a0| f9 c1 e7 e0 07 80 1f 00 | 07 be 07 e1 1c 7d c1 e3 |........|.....}..|
|000058b0| c0 03 00 1e 00 07 9f 07 | e1 3c 3f e1 80 42 0c 00 |........|.<?..B..|
|000058c0| 03 0f 07 e1 2c 1f e0 16 | 0f 07 e1 2c 0f c0 16 06 |....,...|...,....|
|000058d0| 07 e1 2c 0f 80 0e e1 1c | 0f 0f e1 1c 06 0f a3 81 |..,.....|........|
|000058e0| 63 0f ff ff 80 00 18 e2 | 03 63 1f ff ff c0 00 3c |c.......|.c.....<|
|000058f0| e2 03 63 1f ff ff c0 c0 | 3e e2 03 8a 13 10 62 41 |..c.....|>.....bA|
|00005900| 20 20 0c 00 3c e2 89 04 | c1 01 80 01 e0 1e 1e 01 |  ..<...|........|
|00005910| fe e2 8a 24 02 40 33 01 | 02 01 e1 24 01 80 15 18 |...$.@3.|...$....|
|00005920| 04 15 20 23 10 84 e1 25 | 02 43 15 e4 04 14 02 34 |.. #...%|.C.....4|
|00005930| 08 08 19 e1 34 04 04 80 | 22 3c 01 05 27 1f e0 12 |....4...|"<..'...|
|00005940| e6 23 07 e0 2f 08 40 33 | 42 02 04 04 18 01 26 18 |.#../.@3|B.....&.|
|00005950| 18 e1 10 80 33 80 04 08 | 04 15 10 29 60 04 24 01 |....3...|...)`.$.|
|00005960| f8 5c 03 c0 02 08 70 04 | 24 01 08 12 01 06 c1 80 |.\....p.|$.......|
|00005970| 00 03 ff c0 00 02 04 7a | 80 00 0c 30 0c 00 80 04 |.......z|...0....|
|00005980| 75 80 00 1f e0 00 40 80 | 73 03 c4 7c 00 20 00 04 |u.....@.|s..|. ..|
|00005990| 1a 08 32 10 08 08 06 15 | 04 33 04 08 7c 33 0c 38 |..2.....|.3..|3.8|
|000059a0| 80 52 30 08 04 60 06 25 | c0 18 53 20 00 80 00 80 |.R0..`.%|..S ....|
|000059b0| 04 75 40 00 10 01 00 04 | 02 67 21 c8 00 f8 90 09 |.u@.....|.g!.....|
|000059c0| 34 01 20 27 53 41 80 00 | 08 40 04 48 10 80 02 01 |4. 'SA..|.@.H....|
|000059d0| 05 c1 80 1f c2 06 10 00 | 08 10 17 80 52 01 80 04 |........|....R...|
|000059e0| 04 20 04 05 c1 02 01 00 | 08 00 01 00 80 32 08 00 |. ......|.....2..|
|000059f0| 7e 52 01 01 00 84 21 13 | 0c 03 c1 40 00 40 00 08 |~R....!.|...@.@..|
|00005a00| 42 02 18 04 15 20 43 02 | 40 f8 40 12 87 22 10 04 |B.... C.|@.@.."..|
|00005a10| 23 42 02 13 12 14 44 42 | 10 21 01 06 04 57 90 00 |#B....DB|.!...W..|
|00005a20| 41 80 04 23 40 e0 c1 01 | 00 08 70 20 00 20 40 13 |A..#@...|..p . @.|
|00005a30| 01 13 24 43 20 10 80 81 | 04 55 12 00 60 04 20 25 |..$C ...|.U..`. %|
|00005a40| 20 10 23 80 02 12 84 53 | 10 00 10 02 10 62 03 c0 | .#....S|.....b..|
|00005a50| 08 40 40 80 03 15 0c 12 | 02 56 10 08 00 08 10 14 |.@@.....|.V......|
|00005a60| 08 44 01 00 01 08 c1 00 | 20 40 18 04 00 30 40 03 |.D......| @...0@.|
|00005a70| 1b 04 63 0e 04 00 80 00 | f0 12 01 76 08 00 84 02 |..c.....|...v....|
|00005a80| 10 03 e4 12 0c 04 3a 03 | f8 40 22 01 c0 12 20 23 |......:.|.@"... #|
|00005a90| 10 10 74 80 80 00 40 01 | 00 20 08 58 01 20 04 00 |..t...@.|. .X. ..|
|00005aa0| 80 48 02 01 80 20 13 08 | 13 20 42 10 04 00 20 05 |.H... ..|. B... .|
|00005ab0| 39 c0 00 01 49 20 1e 40 | 20 76 40 10 00 08 08 08 |9...I .@| v@.....|
|00005ac0| 02 06 2a 04 02 14 40 c1 | 00 04 03 f0 01 e0 00 18 |..*...@.|........|
|00005ad0| 04 c1 40 00 04 08 40 84 | 07 f0 12 04 04 89 3e 03 |..@...@.|......>.|
|00005ae0| c0 78 c1 00 3e 3c 0f 0f | ff 87 fe 43 03 e0 78 78 |.x..><..|...C..xx|
|00005af0| 72 3c 06 00 01 e0 3f 80 | 03 4e 07 ff f8 00 c1 1e |r<....?.|.N......|
|00005b00| 3c 0f 07 ff 07 ff e0 42 | 01 e3 f8 30 62 3f ff 00 |<......B|...0b?..|
|00005b10| 0f e0 7f 04 8a e1 10 08 | 63 09 04 0f 00 40 10 33 |........|c....@.3|
|00005b20| 1c 08 30 12 20 32 10 20 | 01 04 3e 04 00 10 63 06 |..0. 2. |..>...c.|
|00005b30| 03 f0 00 30 08 32 01 00 | 10 23 10 01 22 40 42 04 |...0.2..|.#.."@B.|
|00005b40| 89 5f 7f c0 00 0c 18 33 | 07 83 fc 23 7f c0 43 07 |._.....3|...#..C.|
|00005b50| fc 00 0f 06 e1 47 07 80 | 3f 80 12 3e 14 03 12 06 |.....G..|?..>....|
|00005b60| 06 e1 47 03 00 1f c0 e1 | 01 e1 29 0f c0 e1 01 e1 |..G.....|..).....|
|00005b70| 29 07 80 e1 01 a2 81 24 | 01 80 e2 06 24 03 c0 e2 |)......$|....$...|
|00005b80| 06 34 03 f0 06 e2 05 34 | 01 f8 0f e2 05 25 fc 1f |.4.....4|.....%..|
|00005b90| 17 06 e1 0d 25 7e 3e 22 | 60 03 13 0f 2f 01 e0 0c |....%~>"|`.../...|
|00005ba0| 8a 75 61 02 1b 00 90 04 | 80 e1 22 02 10 0c 45 10 |.ua.....|.."...E.|
|00005bb0| c0 24 80 14 18 e1 20 04 | 0c 0c 25 08 04 26 24 10 |.$.... .|..%..&$.|
|00005bc0| e1 10 02 0c 35 04 00 40 | 13 40 32 21 00 03 14 18 |....5..@|.@2!....|
|00005bd0| 39 41 00 1e 0a 65 02 08 | 80 40 00 04 23 c2 00 c1 |9A...e..|.@..#...|
|00005be0| 04 80 00 18 00 24 00 0c | 46 08 20 87 e1 0a 27 0c |.....$..|F. ...'.|
|00005bf0| 20 24 01 04 42 0f c0 24 | 0c 12 12 63 01 80 00 10 | $..B..$|...c....|
|00005c00| 98 08 0b 36 11 02 10 34 | 02 08 0c c1 00 10 20 02 |...6...4|...... .|
|00005c10| 12 40 00 01 43 02 40 00 | 01 12 01 0a 17 11 76 10 |.@..C.@.|......v.|
|00005c20| 13 00 20 18 21 00 c1 04 | 00 10 80 00 30 00 06 23 |.. .!...|....0..#|
|00005c30| 48 06 0a 15 02 78 60 00 | 80 00 04 10 80 62 08 40 |H....x`.|.....b.@|
|00005c40| 00 48 00 09 32 04 07 80 | 0a 36 20 00 08 57 40 21 |.H..2...|.6 ..W@!|
|00005c50| 82 08 41 12 04 12 04 e1 | 01 15 04 12 80 49 41 04 |..A.....|.....IA.|
|00005c60| 20 80 14 40 e1 01 26 40 | 10 12 1c 45 20 00 30 82 | ..@..&@|...E .0.|
|00005c70| 16 02 e1 01 16 01 13 20 | 22 20 60 22 01 08 17 21 |....... |" `"...!|
|00005c80| 23 01 fc 0c 75 08 00 0f | 80 0b c0 40 c1 00 10 10 |#...u...|...@....|
|00005c90| 00 10 10 00 01 16 10 22 | 80 20 0d 66 80 80 08 84 |......."|. .f....|
|00005ca0| 00 80 32 08 01 08 17 20 | 32 80 10 40 0e 15 10 32 |..2.... |2..@...2|
|00005cb0| 10 40 0f 73 04 00 80 00 | 80 00 80 c1 08 00 02 00 |.@.s....|........|
|00005cc0| 0c 08 00 20 0f 65 01 00 | 40 20 20 10 53 c2 20 40 |... .e..|@  .S. @|
|00005cd0| 08 40 12 10 22 10 12 44 | 03 fc 00 04 0a 65 12 00 |.@.."..D|.....e..|
|00005ce0| 23 c0 11 e0 43 21 02 20 | 04 c1 20 00 03 20 00 01 |#...C!. |.. .. ..|
|00005cf0| 08 01 13 20 22 20 40 0a | 89 0d c1 0f 0f 98 0f 01 |... " @.|........|
|00005d00| ff 80 78 23 78 1f c1 07 | 83 f1 e0 3c 01 f0 3c 0a |..x#x...|...<..<.|
|00005d10| 8a 7e 88 58 09 01 00 80 | 48 47 10 10 00 01 0c 89 |.~.X....|HG......|
|00005d20| 3d 07 83 e0 12 7e 25 7c | 1f c1 07 81 e0 f8 3c 00 |=....~%||......<.|
|00005d30| f0 3e 0a 8a 1e 02 13 42 | 35 42 00 80 52 84 40 00 |.>.....B|5B..R.@.|
|00005d40| 90 20 0a 2e 01 20 12 3c | 15 21 63 10 40 04 00 60 |. ... .<|.!c.@..`|
|00005d50| 12 0a 89 2d 07 80 79 0f | 9f cf 80 f0 3e 30 0d 8a |...-..y.|....>0..|
|00005d60| e1 78 08 60 30 80 90 01 | 30 0d e1 3a 01 00 60 0f |.x.`0...|0..:..`.|
|00005d70| 89 1d 03 3a 07 fc fc 12 | 1e 0e e1 38 03 f8 78 e1 |...:....|...8..x.|
|00005d80| 01 a4 81 16 60 e2 05 16 | f0 e2 05 16 f8 e2 05 34 |....`...|.......4|
|00005d90| 18 00 f8 e2 05 34 3c 00 | f8 16 78 e1 0e 34 3e 00 |.....4<.|..x..4>.|
|00005da0| f8 25 01 fc e1 0e 34 1e | 00 f8 25 03 fe e1 0e 34 |.%....4.|..%....4|
|00005db0| 1e 00 f8 34 06 07 ff e1 | 0e 8a 15 0f 55 09 08 30 |...4....|....U..0|
|00005dc0| 83 ff e1 10 0c 0b 24 01 | f0 65 10 00 c8 04 00 80 |......$.|.e......|
|00005dd0| 23 0f f0 1a 12 0b 14 10 | 16 01 28 30 0e 17 03 12 |#.......|..(0....|
|00005de0| 01 0b 14 08 39 04 00 80 | 23 40 01 47 0c 80 00 10 |....9...|#@.G....|
|00005df0| 0b 34 04 07 80 54 20 10 | 00 03 ff 64 80 00 83 c0 |.4...T .|...d....|
|00005e00| 00 c0 13 10 0e 89 16 78 | 63 0c 3c 3f 0f 81 80 64 |.......x|c.<?...d|
|00005e10| ff df c7 f8 01 e0 22 c0 | 3f 12 0f 0b 8a 09 c1 18 |......".|?.......|
|00005e20| 12 40 00 f0 82 5f 80 53 | 9c 1c 08 06 02 32 01 20 |.@..._.S|.....2. |
|00005e30| 41 13 80 0a 47 0f f8 24 | 01 42 01 00 20 40 13 60 |A...G..$|.B.. @.`|
|00005e40| 12 01 12 30 12 06 12 08 | 0b 47 10 04 00 10 22 02 |...0....|.G....".|
|00005e50| 02 57 20 00 82 00 48 e1 | 01 18 02 32 04 00 04 12 |.W ...H.|...2....|
|00005e60| 40 64 02 00 30 40 00 04 | 14 3f 0c 45 01 80 20 01 |@d..0@..|.?.E.. .|
|00005e70| 62 48 00 18 00 1f 80 46 | cc 20 00 02 24 40 80 0b |bH.....F|. ..$@..|
|00005e80| 15 06 c1 00 40 70 80 00 | 30 00 18 49 02 00 10 01 |....@p..|0..I....|
|00005e90| 52 01 ff 80 00 40 0a 45 | 08 00 87 88 23 01 04 17 |R....@.E|....#...|
|00005ea0| 20 62 01 08 00 80 00 02 | 12 84 0b 35 30 00 08 15 | b......|...50...|
|00005eb0| 82 16 02 52 80 00 80 00 | 40 33 1f 00 20 0a 25 40 |...R....|@3.. .%@|
|00005ec0| 84 46 41 00 1f fe 34 10 | 08 40 02 c1 04 20 10 02 |.FA...4.|.@... ..|
|00005ed0| 00 20 02 10 0a 25 03 42 | 55 20 30 80 00 01 43 01 |. ...%.B|U 0...C.|
|00005ee0| 00 04 02 72 82 01 00 01 | 00 40 01 0b 55 84 20 00 |...r....|.@..U. .|
|00005ef0| 18 02 23 08 41 76 02 00 | 20 20 00 08 10 12 f8 0d |..#.Av..|  ......|
|00005f00| 65 08 00 0f e0 20 30 42 | 04 20 80 01 34 0c 22 04 |e.... 0B|. ..4.".|
|00005f10| 22 01 08 15 08 0a 47 80 | 00 80 41 42 02 10 7f fe |".....G.|..AB....|
|00005f20| 16 18 43 84 00 04 08 12 | 84 0a 47 40 01 01 82 12 |..C.....|..G@....|
|00005f30| 01 38 41 00 40 72 42 00 | 42 10 80 00 40 0a 47 20 |.8A.@rB.|B...@.G |
|00005f40| 0e 10 04 13 90 17 80 c1 | 80 80 00 08 21 00 21 21 |........|....!.!!|
|00005f50| 12 24 0a 89 25 f0 1e 42 | 07 e0 00 0c 28 f0 00 c1 |.$..%..B|....(...|
|00005f60| 3c 00 30 78 0f f0 1f fc | 0d 25 f0 1e 22 03 c0 1a |<.0x....|.%.."...|
|00005f70| f0 54 30 07 e0 0f f8 0d | 25 f8 1e 1e f0 45 03 c0 |.T0.....|%....E..|
|00005f80| 07 f0 0d 25 7e 7e 1e f0 | 27 01 e0 0d 25 3f fc 1e |...%~~..|'...%?..|
|00005f90| f0 e1 06 25 1f f8 1e f0 | e1 06 25 0f f0 1e 60 e1 |...%....|..%...`.|
|00005fa0| 06 25 03 c0 e2 05 81 e2 | 11 1e 0a e2 11 3f 0a e2 |.%......|.....?..|
|00005fb0| 21 3f 80 09 e2 21 3f c0 | 09 85 e2 21 1f 80 09 e2 |!?...!?.|...!....|
|00005fc0| 11 1e 0a e2 11 0c 0a 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005fe0| 00 00 17 80 46 52 45 45 | 00 00 00 00 00 00 00 00 |....FREE|........|
|00005ff0| 0f 46 72 65 65 20 4f 62 | 6a 65 63 74 20 20 20 20 |.Free Ob|ject    |
|00006000| 64 20 64 65 66 2f 5f 67 | 72 2f 67 72 20 6c 6f 61 |d def/_g|r/gr loa|
|00006010| 64 20 64 65 66 7d 7b 2f | 5f 67 72 0d 7b 36 34 2e |d def}{/|_gr.{64.|
|00006020| 30 20 64 69 76 20 73 65 | 74 67 72 61 79 7d 62 7d |0 div se|tgray}b}|
|00006030| 69 66 65 6c 73 65 20 73 | 6b 7b 2f 5f 73 54 4d 2f |ifelse s|k{/_sTM/|
|00006040| 73 65 74 54 78 4d 6f 64 | 65 20 6c 6f 61 64 20 64 |setTxMod|e load d|
|00006050| 65 66 7d 69 66 2f 67 78 | 7b 2f 74 67 20 65 78 63 |ef}if/gx|{/tg exc|
|00006060| 68 20 64 65 66 7d 62 20 | 30 20 67 78 2f 78 36 7b |h def}b |0 gx/x6{|
|00006070| 61 76 20 36 38 20 67 74 | 0d 7b 66 61 6c 73 65 7d |av 68 gt|.{false}|
|00006080| 69 66 7d 62 20 65 6e 64 | 20 50 32 5f 62 20 70 6b |if}b end| P2_b pk|
|00006090| 20 65 6e 64 7b 2f 70 61 | 74 7b 50 32 5f 62 20 67 | end{/pa|t{P2_b g|
|000060a0| 66 7b 65 6e 64 20 70 6f | 70 20 73 67 20 61 76 20 |f{end po|p sg av |
|000060b0| 36 38 20 67 74 7b 70 6f | 70 7d 69 66 7d 7b 2f 5f |68 gt{po|p}if}{/_|
|000060c0| 70 61 74 20 6c 6f 61 64 | 20 65 6e 64 20 65 78 65 |pat load| end exe|
|000060d0| 63 7d 0d 69 66 65 6c 73 | 65 7d 62 69 6e 64 20 64 |c}.ifels|e}bind d|
|000060e0| 65 66 7d 7b 2f 70 61 74 | 7b 50 32 5f 62 20 70 6f |ef}{/pat|{P2_b po|
|000060f0| 70 20 5f 67 72 20 65 6e | 64 7d 62 69 6e 64 20 64 |p _gr en|d}bind d|
|00006100| 65 66 7d 69 66 65 6c 73 | 65 20 50 32 5f 62 20 73 |ef}ifels|e P2_b s|
|00006110| 6b 20 65 6e 64 7b 2f 73 | 65 74 54 78 4d 6f 64 65 |k end{/s|etTxMode|
|00006120| 7b 50 32 5f 62 2f 5f 73 | 54 4d 20 6c 6f 61 64 0d |{P2_b/_s|TM load.|
|00006130| 65 6e 64 20 65 78 65 63 | 20 50 32 5f 62 20 74 67 |end exec| P2_b tg|
|00006140| 2f 5f 67 72 20 6c 6f 61 | 64 20 65 6e 64 20 65 78 |/_gr loa|d end ex|
|00006150| 65 63 7d 62 69 6e 64 20 | 64 65 66 7d 7b 2f 73 65 |ec}bind |def}{/se|
|00006160| 74 54 78 4d 6f 64 65 7b | 70 6f 70 20 50 32 5f 62 |tTxMode{|pop P2_b|
|00006170| 20 74 67 2f 5f 67 72 20 | 6c 6f 61 64 20 65 6e 64 | tg/_gr |load end|
|00006180| 20 65 78 65 63 7d 62 69 | 6e 64 0d 64 65 66 7d 69 | exec}bi|nd.def}i|
|00006190| 66 65 6c 73 65 7d 69 66 | 0d 07 00 00 00 00 22 00 |felse}if|......".|
|000061a0| 13 00 20 ff ff a1 00 c0 | 00 66 33 31 20 31 38 20 |.. .....|.f31 18 |
|000061b0| 31 20 69 6e 64 65 78 20 | 6e 65 67 20 31 20 69 6e |1 index |neg 1 in|
|000061c0| 64 65 78 20 6e 65 67 20 | 6d 61 74 72 69 78 20 74 |dex neg |matrix t|
|000061d0| 72 61 6e 73 6c 61 74 65 | 20 33 20 31 20 72 6f 6c |ranslate| 3 1 rol|
|000061e0| 6c 0d 63 75 72 72 65 6e | 74 70 6f 69 6e 74 20 32 |l.curren|tpoint 2|
|000061f0| 20 63 6f 70 79 20 6d 61 | 74 72 69 78 20 74 72 61 | copy ma|trix tra|
|00006200| 6e 73 6c 61 74 65 20 36 | 20 31 20 72 6f 6c 6c 0d |nslate 6| 1 roll.|
|00006210| 22 00 be 01 1f 01 01 a1 | 00 c0 00 84 32 38 38 20 |".......|....288 |
|00006220| 31 39 31 20 63 75 72 72 | 65 6e 74 70 6f 69 6e 74 |191 curr|entpoint|
|00006230| 20 31 20 69 6e 64 65 78 | 20 36 20 69 6e 64 65 78 | 1 index| 6 index|
|00006240| 20 73 75 62 20 34 20 69 | 6e 64 65 78 20 39 20 69 | sub 4 i|ndex 9 i|
|00006250| 6e 64 65 78 20 73 75 62 | 20 64 69 76 0d 31 20 69 |ndex sub| div.1 i|
|00006260| 6e 64 65 78 20 36 20 69 | 6e 64 65 78 20 73 75 62 |ndex 6 i|ndex sub|
|00006270| 20 34 20 69 6e 64 65 78 | 20 39 20 69 6e 64 65 78 | 4 index| 9 index|
|00006280| 20 73 75 62 20 64 69 76 | 0d 6d 61 74 72 69 78 20 | sub div|.matrix |
|00006290| 73 63 61 6c 65 20 31 31 | 20 31 20 72 6f 6c 6c 0d |scale 11| 1 roll.|
|000062a0| a1 00 c0 00 6f 5b 20 39 | 20 31 20 72 6f 6c 6c 20 |....o[ 9| 1 roll |
|000062b0| 63 6c 65 61 72 74 6f 6d | 61 72 6b 0d 33 20 32 20 |cleartom|ark.3 2 |
|000062c0| 72 6f 6c 6c 20 6d 61 74 | 72 69 78 20 63 6f 6e 63 |roll mat|rix conc|
|000062d0| 61 74 6d 61 74 72 69 78 | 0d 65 78 63 68 20 6d 61 |atmatrix|.exch ma|
|000062e0| 74 72 69 78 20 63 6f 6e | 63 61 74 6d 61 74 72 69 |trix con|catmatri|
|000062f0| 78 0d 2f 50 32 5f 74 70 | 20 65 78 63 68 20 64 65 |x./P2_tp| exch de|
|00006300| 66 20 50 32 5f 62 20 6d | 6b 20 65 6e 64 7b 62 6e |f P2_b m|k end{bn|
|00006310| 7d 69 66 0d 07 00 01 00 | 01 22 00 01 ff 9d ff ff |}if.....|."......|
|00006320| a1 00 64 00 0a 53 50 4e | 54 0b b8 00 0a 00 00 a1 |..d..SPN|T.......|
|00006330| 00 64 00 12 53 50 4e 54 | 0c 30 ff ff ff ff 00 00 |.d..SPNT|.0......|
|00006340| 00 00 01 59 02 02 a1 00 | 64 00 0a 53 50 4e 54 0c |...Y....|d..SPNT.|
|00006350| 94 00 01 00 01 a0 00 8e | 98 00 42 00 00 00 00 00 |........|..B.....|
|00006360| 9a 02 08 00 00 00 00 00 | 9a 02 02 00 12 00 1f 00 |........|........|
|00006370| 5f 01 20 00 01 05 c1 ff | 01 80 00 05 c1 ff 01 80 |_. .....|........|
|00006380| 00 16 00 c0 ed 00 00 01 | f2 ff 02 00 00 7f f2 ff |........|........|
|00006390| 00 f8 fa 00 02 01 80 00 | 17 00 c0 ed 00 00 03 f3 |........|........|
|000063a0| ff 03 e0 00 00 1f f2 ff | 00 fc fa 00 02 01 80 00 |........|........|
|000063b0| 17 00 c0 ed 00 00 0f f3 | ff 03 80 00 00 7f f2 ff |........|........|
|000063c0| 00 fe fa 00 02 01 80 00 | 15 00 c0 ed 00 00 1f f4 |........|........|
|000063d0| ff 03 fe 00 00 0f f0 ff | fa 00 02 01 80 00 17 00 |........|........|
|000063e0| c0 ed 00 00 7f f4 ff 03 | f0 00 00 07 f0 ff 00 80 |........|........|
|000063f0| fb 00 02 01 80 00 15 00 | c0 ed 00 f3 ff 03 e0 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+